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ANSIC 
Full implementation of the proposed ANSI standard 
for C compilers. Includes the Kemighan & Ritchie 
standard plus improvements for micro-controller 
development. 

Memory-based compiler 
ICC is a fast one-pass compiler based on main 
memory storage. This has three major advantages: 

• NO temporary files 

• NO time-consuming assembly pass 

• NO separate pre-processor stage 

This combines into one single word: SPEED 

PROM-able C 
ICC makes it possible to put C programs into 
PROM, still using the full C language and all data 
types, including type definitions, long integers and 
statically initialized variables. 

Built-in Type-Checking 
ICC has a UNIX LINT-like Type-checking option 
built-in into the compiler. This means that Pascal- 
like warnings are generated, e.g. when functions 
are mismatched or undeclared. 



For more Information contact your local distributor: 





Various Options 


• 8051 


— single-chip 






— 64 K CODE 


+ DATA 




— 64 K CODE 


+ 64 K DATA 


• 6301 and 6801 




• Z80 and 64180 





Frank Hogg Laboratory 
The Regency Tower 
Suite 215 
770 James Street 
Syracuse, NY 13203 
Phone: (315)474-7856 
Telex: 646740 



ElsoM AG 

Zelweg 12 

CH-540S Baden-Dattwil 

Switzerland 

Phone: (056)83 3377 

Telex 828275 



Full Package Development System 

The ICC compiler package includes: 

• C run-time library 

• //-Series Relocatable Macro Assembler 

• XLINK Universal Linker 

• XLIB Universal Librarian 
■ Floating-point support 

• 150 page manual in three-ring binder 

All this together give the micro-controller program- 
mer a powerful Development System Software 
Environment. 

iMAB 

SYSTEMS 

OS-9/68xxx version distribution by: 

Micromaster Scandinavia AB 

Box 1309, S-751 43 UPPSALA. SWEDEN 

Tet int. +4618138595 Telex- 76129 



GMX MICRO-20 and TWINGLE-20 PRICE LIST 




All versions include 1 SAB Board 




MICRO-20 with 1MB RAM 


MICRO-20 with 2MB RAM 


TWINGLE-20 with 4MB RAM 


12.5 MHz 


1B55.00 


2155.00 


3855.00 


16.67 MHz 


2185.00 


2485.00 


4185.00 


20 MHz 


2585 00 


2885 00 


4785.00 



OPTIONAL PARTS AND ACCESSORIES 



68881 12 5MHz Floating Point (^prunrssor J 165.00 

68881 16.67MHz Floating Point Coproassscr $ 225.00 

68881 20MHz Floating Point Coprocessor * 3*5.00 

MOTOROLA 68020 USERS MANUAL J 18.00 

MOTOROLA 68030 USERS MANUAL J 18.00 

MOTOROLA 68881 USERS MANUAL $ 18.00 

M:|*.tHHW.1i]BTfflEflJI!WiBff {1399.00 

The package includes a PC-style cabinet with a custom Dackpanei. 
a 25 Megabyte (unformatted) hard disk and controller, a floppy disk 
drive, a 150 watt power supply, cooling Ian, panel mounted reset and 
aborl switches, and aU necessary Internal cabling (For use with 
SAB-90 serial connectors only ) 

2nd 5'80 FLOPPY & CABLES FOR M20- AP. ADO $ 250.00 

SECOND 25MB HARD DISK & CABLES. ADO $ 780.00 

TOSUBSTmjT50MBHDFOR25MBHO,ADD $ 290.00 

T0SUBSTITUTE80MBHDF0R25MBH0.AD0 $1500.00 

TO SUBSTITUTE 155MB FOR 25MB HD. ADD $2100 00 

60M BTEAC STREAMER WITH ONE TA $690.00 

PKG 0F5TEACTAPES S 11250 

CUSTOM BACKPANELPLATE(BPP-PC) $ 44.00 

$ 335.00 

The SBC-16S extends the I/O capabilities ot the GMX Micro-20 
68020 Single-board Computer by adding sixteen asynchronous 
serial I/O ports 8y using two SBC-16S boards, a total of tttirly-six 
serial pons are possible. 

■;k»*m.w.i a»; iM.T-fM.mf .t .qtHiaMJ:a:i:.i. $165.00 

The board provides level- shifting between TTL level and 
standard RS-232 signal levels tor up to 4 serial I/O ports. 

Kini;iitfj;FJiWHiiiiiH;iiin:imiia $398.00 

The GMX SBC-60P uses three 68230 Parallel Interface /Timers 
(Pt/Ts) to provide up to forty-eight parallel I/O lines. The I/O lines 
are buttered In six groups of eight lines each, with separate buffer 
direction control for each group. Butler direction can be fixed by 
hardware jumpers, or can be software programmable for 
bidirectional applications. 

l^;MliUJj.l.|J:tiM:liWM:tia , i. il $75.00 

the JBvWw provides a means ol developing and lasting 
custom I/O interlace designs for the GMX Mlcro-20 68020 Single- 
board Computer Trie board provides areas for both DIP (Dual inline 
Package) and PGA (Pin Grid Array) devices, and a pre wired 
memory area for up lo 51 2K byles ol dynamic RAM 

■Hij:»Ki.iiMaHifM:im;LH $194 00 

The SBC BA provides an Interface between the GMX Mlcro-20 
68020 Single-board Computer and the Motorola Inpul/Output 
Channel (I/O bus). With the I/O bus, up to sixteen off-the-shelf or 
custom peripheral devices (I/O modules) can be connected to the 
GMX Micro-20. 

ftlslilllillJll.gBfraKHIBBIMilJJ.'l $475.00 

The SBC-AN provides an interface between the GMX Mlcro-20 
68020 Single- board Computer and the ARCNE modified token- 
passing Local Area Network (LAN) originally developed by Datapoint 
Corp The ARCNET Is a baseband network with a data transmission 
rate ot 2 5 Megabits/ second The standard transmission media is a 
single 93 ohm RG-62/U coaxial cable Fiber opbc versions are 
available as an option . 

0S9 LAN Software Orwan lor SBC-AN 120.00 



I/O EXPANSION BOARDS 



1 6 PORT SERIAL BOARD ONLY SBC-11 



GMX MICRD-2D SOFTWARE 



020 BUG UPDATE - PROMS & MANUAL $150.00 

THESE 66020 OPERATING SYSTEMS ARE PRICED 
WHEN PURCHASED WITH THE MICRO-20. PLEASE 
ADD $150.00 IF PURCHASED LATER FOR THE 
UPDATED PROMS AND MANUALS. ALL SHIPPED 
STANDARD ON S'A' DISKS 3'/t" OPTIONAL IF 
SPECIFIED. 



OS9/68020 PROFESSIONAL PAK $850.00 

includes O.S.. "C". uMACS EDITOR. ASSEMBLER. DEBUGGER. 

development utilities. 68881 suppott. 

OS9/6B020 PERSONAL PAK $ 400.00 

Personal OS-9 systems require a GMX Micro-20 development 

system running Professional OS-9/68020 lor initial configuration 

8ASIC I included in PERSONALM*)" $ 2U0 .00 

C COMPILER (Included in PROFESSIONAL PAK) .. $ 750.00 

PASCAL COMPILER $500 00 

UniFLEX <lo ....$ 400.00 

UnlFLEX WITH REAL-TIME ENHANCEMENTS $ 800.00 

UnlFLEXVM (lor TWINGLE-20) $ 600.00 

UnlFLEX VM REAL-TIME ENHANCEMENTS $1000.00 

UnlFLEXBASICW/PRECOMPILER ....$ 300.00 

UniFLEX C COMPILER $ 350.00 

UniFLEX COBOL COMPILER $ 750.00 

UnlFLEX SCREEN EOITOR S 150.00 

UniFLEX TEXT PROCESSOR $ 200,00 

UnlFLEX SORT/MERGE PACKAGE $ 200.00 

UniFLEX VSAM MODULE $ 100.00 

UnlFLEX UTILITIES PACKAGE I S 200.00 

UnlFLEX PARTIAL SOURCE LICENSE $1000.00 

GMX EXCLUSIVE VERSIONS, CUSTOMIZED FOR 
THE MICRO-20, OF THE BELOW LANGUAGES 
AND SOFTWARE ARE ALSO AVAILABLE 
FROM GMX. 

ABSOFT FORTRAN (UnlFLEX) $1500.00 

SCULPTOR (specify UnlFLEX or 0S9) $ 995.00 

FORTH (0S9) $ 595.00 

OYNACALC (spedty UnlFLEX or 0S9) $ 300.00 

GMX DOES NOT GUARANTEE PERFORMANCE OF ANY GMX 

SYSTEMS. BOARDS OR SOFTWARE WHEN USED WITH 

OTHER MANUFACTURERS PRODUCT. 

ALL PRICES ARE FOB. CHICAGO IN U.S. FUNDS 

GMX. Inc reserves the nght to change pricing, terms, and 

products specifications at any lime without further notice 

TO ORDER BY MAIL: SEND CHECK OR MONEY ORDER OR USE 

YOUR VISA OR MASTER CHARGE Please allow 3 weeks for 

personal checks to clear US orders add $5 handling il under 

$200.00. Foreign orders add $10 handling If order is under 

$200 00. Foreign orders over $200 00 will be shipped via Emery Air 

Freight COLLECT, and we will charge no handling All orders must 

be prepaid in U.S. funds Please note that foreign checks have 

been taking about 8 weeks for collection so we would advise wiring 

money, or checks drawn on a bank account in the U.S. Our bank is 

the Continental Illinois National Bank of Chicago. 23 1 S LaSalie 

Street. Chicago, il 60693. account number 73-32033. 

CONTACT GMX FOR MORE INFORMATION ON THE ABOVE 

PRODUCTS 

GMX STILL SELLS GIMIX SSO BUS SYSTEMS, BOARDS & PARTS 

CONTACT GMX FOR COMPLETE PRICE LIST 



CtnX 1337 W. 37th Place. Chicago, IL 60609 (312) 927-5510 — TWX 910-221-4055 — FAX (312) 927-7352 
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68 MICRO JOURNAL 

Computer Publishing Center 
5900 Cassandra Smith Road 
PO Box 849 
Hixson,TN 37343 
Phone (615) 842-4600 Telex S10 600-6630 
Copyrighted © 1987 by Computer Publishing. Inc. 
68 Micro Journal is the original "DeskTop Publishing"producl and has 
continously published since 1978 using only micro-computers and 
special "DeskTop" software. Using first a kit built 6800 micro-com- 
puter, a modified "ball" typewriter, and"home grown" DeskTop Pub- 
lishing software. None was commercially available al that lime. For 
over 10 years we have been doing "DeskTop Publishing"! We origi- 
natedwhat has become traditional "DeskTop Publishing" ! Today 68 
M icro Journal is acknowledged as the "Grandfather "oP'DcskTop Pub- 
lishing" technology. 



68 Micro Journal is published 12 times a year by Computer Publishing 
Inc. Second Class Postage paid ISSN 0194-5025 al Hixson.TN. and 
additional cntiics. Postmaster: send form 3597 to 68 Micro Journal, 
POB 849, Hixson.TN 37343. 

Subscription Rates 

1 Year $24.50 USA. Canada & Mexico $34.00 a year. 

Others add $12.00 a year surface, $48.00 a year Airmail, USA 

funds. 2 years $42.50, 3 years $64.50 plus additional postage 

for each additional year. 

Items or Articles for Publication 

Articles submitted for publication must include authors name, ad- 
dress, telephone number, dale and a statement that the material is 
original and the property of the autlior. Articles submitted should be 
on diskette, OS-9. SK'DOS. FLEX. Macintosh or MS-DOS. Alt 
primed items should be dark type and satisfactory for photo-reproduc- 
tion. No blue ink! No hand written atticles • please! Diagrams o.k. 

Please - do not format wilhspacesany text indents, charts, etc. (source 
listing o.k.). We will edit m a II formal I tug. Text should/allflush left and 
use a carriage return only to indicate a paragraph end. Please write 
for free authors guide. 

Letters & Advertising Copy 

I liters to the Editor should be the origin al copy, signed! letters of grip 
as well as praise arc acceptable. We reservethe right to reject any Utter 
or advertising material.for any reason we deem advisable. Advertis- 
ing Rates: Commercial please contact 68 Micro Journal Advertising 
Department. Classified advertising must be non-commercial. Mini- 
mum of S1S.S0 for first 15 words. Add $.60 per word thereafter. No 
classifieds accepted by telephone. 
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OS-9 . . . 
Making Beautiful 



Key of "C"! 



m 



hen you need to orchestrate 
beautiful music on your VME system, 
look to Microware (or just the right 
score. Our finely tuned OS-9 Operat- 
ing System is truly the maestro s 
choice when the proiect requires C 
language development, Our super- 
lative C Compiler— also available in an 
optimized 68020 veislon— produces 
fast compact ROMable code lor your 
most demanding applications. A 
powerful Assembler. Linker and 
Symbolic Debugger assists in target 
development. And our C Compiler 
is source compatible with UNIX applica- 
tions and available in cross-compiler con- 
figurations for Sun. VAX and Hewlett- 
Packard environments. 

OS-9 Keeps On Performing 
Even After the Fat lady Sin^s! 

Most operating systems hit a sour note 
when the project reaches completion. But 
not OS-9. Because ol its modular design 
and UNIX-style architecture, your investment 
in OS-9 experience, tools and applications 
translates into a valuable resource for your 
company's future. OS-9 can be utilized 
again and again over your entire corporate 
product range. 



iTiig 





An Accompaniment 
of Total Support 

Microware is proudly setting the indus- 
try's standard lor customer support 
You'll find outstanding technical 
documentation that leaves nothing in 
doubt when it comes to real-world appli- 
cations. A rigorous Quality Assuiance 
program guarantees customer satisfaction 
by identifying trouble spots before they 
become customer problems. And with our 
Customer Hotline, you are only a 
telephone call away from courteous and 
concise information. So join the growing 
legions of Microware ' C" aficionados Call 
us today and Find out how you can create 
inspiring harmonies on your system. 



MICROWARE SYSTEMS CORPORATION 

1900 N.W. 1 14th Street 

Oes Moines. IA 50322 

Phone 515-224-1929 

Western Regional Office 
4401 Creat America Parkway 
Santa Clara, CA 95054 
Phone 408-980-0201 



Mtnwte tea »etWmd vadenwi d Mkrecn SrHcrm Cnpontton 

0&4foMUO H a vafclMrt d UtoBlK VM a. • u«dtfwi* ol DEC 
UNIX to * Indent** of ATM 
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The MUSTANG-020 68020 SBC provides a powerful. 
compact. 32 bit computer system featuring the "stale of the art" 
Motorola 68020 "super" micro-processor. It comes standard 
with 2 megabyte of high-speed SIP dynamic RAM, serial and 
parallel ports, floppy disk controller, a S ASI hard disk interface 
for intelligent liard disk controllers and a battery baclced-up 
time-of-day clock, Provisions are made for the super powerful 
Motorola MC68881 floating point math coprocessor, for 
heavy math and number crunching applications. An optional 
network interface uses one serial (four (4) standard, expandable 
to 20) as a 125/bii per second network channel. Suppoils as 
many as 32 nodes. 

The MUSTANG -020 is ideally suited to a wide variety of 
applications. It piovides a cost effective alternative to the other 
MC68020 systems now available. It is an excellent introductory 
tool to the world of hi-power, hi-spced new generation "super 
micros". In practical applications it lias numerous applications, 
ranging from scientific to education. It is already being used by 
government agencies, labs, universities, business and practi- 
cally every other critical applications center, worldwide, where 
true multi-user, multi-tasking needs exist, The MUSTANG- 
020 is UNIX C level V compatible. Where low cost and power 
is a must, the MUSTANG-020 is the answer, as many have 
discovered. Proving that price is not the standard for quality! 

As a software development station, a general purpose 
scientific or small to medium business computer, or a super 
efficient real-time controller in process control, the MUS- 
TANG-020 is the cost effective choice. With the optional 
MC68881 floating point math co-processor installed, it has the 
capability of systems costing many times over it's total acqui- 
sition cost. 

With the DATA.COMP "total package", consisting of a 

p* -« 

Data-Comp Division 

n />^^B^\\ A Decade of Quality Service" fc 
ij VV^5^ Systems World-Wide 
Computer Publishing, Inc. 5900 Cassandra Smith Road 
Tetephore 615 942-4601 ■ Telex 510 60&6630 Hixson, Tn 37343 



DATA-COMP Proudly Presents the First 

Under $4300 "SUPER MICRO" See other 

advertising (backcover) for economy 

system (68008) - under $2400 complete! 



heavy duly metal cabinet, switching power supply with rf/line 
by-passing, 5 inch DS/DD 80 track floppy, Xebec hard disk 
controller. 25 megabyte Winchester hard disk, four serial RS- 
232 poils and a UNIX C level V compatible multi-tasking, 
multi-user operating system, the price is under $4300. w/1 2.5 
megaheitz system clock (limited lime offer). Most all popular 
high level languages arc available at very reasonable cost. The 
system is expandable to 32scr ial ports, at a cost of less than S65 
per port, in multiples of 8 port expansion options. 



The SBC fully populated, quality tested, with 4 serial ports 
prewired and board mounted is available for less that S2500. 
Quantity discounts are available for OEM and special applica- 
tions, in quantity. All that is required to biing to complete 
"system" standards is a cabinet, power supply, disks and oper- 
ating system. All these are available as separate items from 
DATA-COMP. 




AvaUablt 12 5- 25 Mia sysumi, call for special prices 

A special version of the Motorola 020-BUG is installed on 
each board. 020-BUG is a ROM based debugger package with 
facilities for downloading and executing user programs from a 
host system. It includes commands for display and modifica- 
tion of memo i y. breakpoint capabilities, a powerful assembler/ 
disassemble and numerous system diagnostics. Various 020- 
BUG system routines, such as I A3 handlers arc available for user 
piograms. 

Normal system speed is 3 45 MIPS, with burst up to 10 
MIPS, at 1 6.6 megahertz. Intelligent I/O available for some 
operating systems. 

Hands-on "actual experience sessions", before you buy, 
are available from DATA-COMP. Call or write for additional 
information or pricing. 
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Only the "PRO" Version 
of OS-9 Supported! 
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$750.00 


Ncto«ll6888] chip* wo* with 20 Mhi Syt 






Tout: 


$5299 80 



Save $1000.00 
Complete 



Data-Comp Division 

( ■ ^B^^y"^^ A Decade of Quality Service' ^ 

Computer PubHthlng, Inc. Seoo Cauandra Smith Road 
TalapN)na6lS842'«M1 -Tatu SIOEOO-Gfiao Hmton , Tn 37343 



25 Mbyte HD System 

$4299.80 
85Mbyte HD System 

$5748.80 

Note: Only Professional OS-9 Now Available (68020 Version) 

Includes ($500) C Compiler • 68020 * 68881 Supported - 

For UPGRADES Write or Call for Professional OS-9 Upgrade Kit 
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PAT i im ©s=i i 

With 'C Source 



$229.00 



)Sp1i§0in)! 



f= 




Tot Ovm ft 


MW 1 | 




i.mf 


" S.E. 


A Division of 


Media- 




i , 


P. 


3900 Cutandra Smith Rd. 






Uitson,Tn 37343 


L 




1 


Telephone 61 5 M2-68M 
Telex J10 6OW630 
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PAT FROM S. E. MEDIA - A FULL FEATURED SCREEN ORIENTED TEXT EDITOR 

with all the best of PIE. For those who swoie by and loved PIE, this is for YOU! All PIE 
features & much more! Too many features to list. And if you don't like ours, change or add 
your own. C source included. Easily configured to your CRT terminal, with special configuration 
section. No sweat! 

68008 - 68000 - 68010 - 68020 OS-9 68K $229.00 




Special $249. 00 

JUST 

JUST from S. E. MEDIA - - Text formatter written by Ron Anderson; for dot matrix 
printers, provides many unique features. Output formatted to the display. User con- 
figurable for adapting to other printers. Comes set-up for Epson MX80 with Graflex. Up 
to 10 imbedded printer control commands. Compensates for double width printing. 
Includes normal line width, page numbering, margin, indent, paragraph, space, vertical 
skip lines, page length, centering, fill, justification, etc. Use with PAT or any other text 
editor. The ONLY stand alone text processor for the 68XXX OS-9 68K, that we have 
seen. And at a very LOW PRICE! Order from: S.E. MEDIA- see catalog this issue. 

68008 - 68000 - 68010 - 68020 OS-9 68K 
V With 'C source $79.95 
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The C Programmers 

Reference Source. 

Always Right On Target! 

C User Notes 



A Tutorial Series 



By: Dr. E.M. 'Bud' Pass 
1454 Latta Lane N.W. 
Conycrs. G A 30207 
404 483-1717/4570 

Computer Systems Consultants 



INTRODUCTION 

This chapter discusses 
the use of benchmarks for 
testing the performance of 
selected computer systems. 
Benchmarking computers Is 
a difficult task because of the 
large number of parameters 
which must be evaluated 
when determining the per- 
formance of a given system. It 
should be a necessary part of 
the development and selec- 
tion of new computer and 
software systems to ensure 
that the performance Is as 
expected. 

BENCHMARKS 

Since benchmarking is si- 
multaneously important and 
difficult, much time and effort 
has been spent on analyzing 
the problem, but little time 
and effort is usually spent on 
properly applying bench- 
marking techniques in prac- 
tical situations. 

The infamous sieve pro- 
gram has often been used in 
recent years as a means of 
comparing the performance 
of a limited number of C 
compilers in particular cases. 
Unfortunately, It has been 
used in many published 



studies to compare complete 
processors and computer 
systems, with the original as- 
sumptions forgotten, if they 
were ever known. 

Benchmarks are normally 
developed and used to com- 
pare performance character- 
istics In one or more of the 
following classes, arranged In 
increasing order of difficulty 
of establishment and 
interpretation: one compiler 
before and after modification 
on the same computer and 
operating system, one com- 
piler with different operating 
system on the same computer, 
one compiler with different 
hardware configuration or 
with different operating sys- 
tems, multiple compilers on 
the same operating syste on 
the same computer, multiple 
compilers on the same com- 
puter with different operating 
systems , multiple compilers 
on different operating system 
on the same computer. 

The SVID test suite, avail- 
able from several sources, Is 
an example of an attempt to 
provide a thorough test of a 
particular operating system 
on a particular hardware 



configuration. It is certainly a 
benchmark for certification of 
an operating system, includ- 
ing c compiler, assembler, 
linkage editor, low-levellnter- 
faces. etc. 

In all cases, the bench- 
marks should all be checked 
for time and accuracy of exe- 
cution. Many benchmarks 
attempt to carefully de- 
termine the speed of their 
execution, but do not attempt 
to determine if they have been 
executed correctly. Both 
internal and external checks 
should be used. Internal 
checks compute the same 
results In two very different 
manners or compare results 
to pre-computed values and 
indicate success or failure (or 
failure only). External checks 
Involve comparison of results 
output by the benchmark 
program with pre-computed 
values, but by other pro- 
grams or by humans. Inter- 
nal checks may be inade- 
quate in certain failure 
modes. 
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The lirst case, comparing 
the same compiler before and 
aftermodiflcation. Is the most 
straightforward In applica- 
tion, and illustrates several of 
the characteristics which 
must be considered in the 
more complex cases. The 
benchmark program or pro- 
grams should be designed to 
test not only the specific areas 
of concern, but to test other 
areas to ensure that new 
problems have not been in- 
troduced. The areas should 
be tested separately. One re- 
ally Important issue is to 
ensure that the actions of the 
benchmark program are 
understood, and that rele- 
vant parameters really are 
being accurately measured. 
If the benchmark supports 
several major options, the 
benchmark should be run 
with each relevant option. 

The other cases are pro- 
gressively more complex, but 
should be based upon the 
same principles as the sim- 
pler cases. The primaiy 
guidelines should be to 
understand how the program 
functions and to ensure that 
it functions as expected in 
measuring the relevant situa- 
tional parameters. The dura- 
tion of the tests must be long 
enough to ensure that the ef- 
fect of transient variations is 
minimized. Normally, bench- 
marks on multi-user systems 
should be performed several 
limes, with minimal system 
loading. 



BENCHMARK FAILURES 

It is not difficult to find 
published examples of 
benchmark programs which 
were claimed to measure one 
parameter but. in fact, meas- 
ured some other parameter, 
none in particular, or pro- 
vided misleading results. 

The sieve benchmark pro- 
gram allows the comparison 
of so little of a system's capa- 
bilities that it must be logi- 
cally discarded as a valid 
benchmark, despite Its use in 
hundreds of articles and ad- 
vertisements. It also provides 
no assurance that It has per- 
formed its operations cor- 
rectly. 

A published iloating- point 
benchmark program actually 
compares transcendental 
floating-point function per- 
formance. Systems providing 
the best ranking were deter- 
mined to have used special 
floating-point hardware. 
Systems providing the next- 
best ranking were deter- 
mined to have transcendental 
functions coded In assembler 
language. Systems providing 
the lower rankings were de- 
termined to have transcen- 
dental functions coded in the 
C language. Therefore. Ihe 
benchmark program pro- 
vided no or misleading infor- 
mation about floating-point 
speed In the C language!. 

Another published bench- 
mark program supposedly 
provided a means of ranking 
the speed of pointer opera- 
tions. The program actually 
consisted primarily of a dou- 
bly-nested for loop surround- 
ing two simple pointer oper- 
ations, and the program did 
not account for the overhead 



due to the nested for loops, 
which was later determined 
to be far higher than the time 
required to perform the 
pointer operations. 

An advertisement from a C 
compiler manufacturer 
claimed that their compiler 
performed the sieve bench- 
mark several times faster 
than their best competitor's C 
compiler. When the compil- 
ers were benchmarked by 
impartial observers, the op- 
posite conclusion was drawn. 
The manufacturer claiming 
to have the faster compiler 
had apparently run only one 
iteration of the sieve bench- 
mark through their compiler, 
while the competitor's bench- 
mark had run ten iterations! 
As David Horowitz says. 
"Read Those Labels". 

DHRYSTONE BENCHMARK 

The Dhiystone bench- 
mark program was originated 
by Reinhold P. Weicker. In the 
Communications of the ACM 
Volume 27. Number 10. Octo- 
ber 1984. page 1013. Jt was 
translated to the C language 
by Rick Richardson 
(lhnp4!castor!pcrat!rlck). 

In this program, the key- 
words "if, "for", and "while" 
account for over 70 percent of 
the control statements. It 
uses data types char. int. 
long, but not float or double. 
In execution counts. 53 per- 
cent of the statements are as- 
signments. 32 percent are 
control statements, and 15 
percent are function calls. 

Dhiystone provides de- 
fines for C compilers which 
don't support enums. and for 
those which do not support 
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structure assignment. It also 
provides defines for those C 
compilers which support the 
time or times functions, or 
neither, and for variations In 
the C libra ly implementa- 
tions of these functions. It 
also supports a major option 



REG=reglster to select or 
deselect compiler register 
usage. 

This benchmark suffers 
from the problem that it does 
not compute and output any 
values which may be used to 



check that it has performed 
Its operations correctly. Its 
only output is the Dhrystone 
rating. 

BENCHMARK RESULTS 

The following results have 
been noted, rounded to the 
nearest 25: 



Computer 


CPU 


OS Dh] 


rystone 


SSB Chieftain 


6809-2 


OS-9 L.2 


225 


FORTUNE 16:32 


68000-4 


UNIX FORPRO 


300 


PC-XT clone 


8088-5 


MSDOS 2 . 1 


325 


PT 68000 


68000-10 


SKDOS 


510 


PC-XT clone 


V-20-8 


MSDOS 3.1 


675 


AT&T 3B2/300 


WE32000-7.2 


UNIX 5.2 


675 


PC-XT clone 


8088-10 


MSDOS 3.1 


700 


PC-XT clone 


V-20-10 


MSDOS 3.1 


800 


DEC 11/750 


VAX 


ULTRIX 1.2 


850 


CTI Mini-Frame 


68010-10 


CTIX V.2 


950 


Sun 2/120 


68010-10 


SUN 2.2 


1000 


AT&T 3B2/400 


WE32000-10 


UNIX 5.2 


1025 


Sequent 8000 


32032-10 


D¥NIX 


1100 


GMX Micro-20 


68020-12 


OS-9 1.2 


1250 


DEC MICROVAX II 


VAX 


VMS 4.5 


1325 


Compaq I I 


80286-8 


MSDOS 3.1 


1350 


DEC MICROVAX II 


VAX 


ULTRIX 1.2 


1375 


DEC 11/780 


VAX 


ULTRIX 1.2 


1450 


AT&T 3B15 


WE32100-14 


UNIX 5.2.1 


1800 


DEC 11/785 


VAX 


ULTRIX 1.2 


1800 


PC-AT clone 


80286-10 


MSDOS 3.1-MSOFTC 


1825 


PC-AT clone 


80286-10 


UNIX 5.2 


1875 


PC-AT clone 


80286-10 


MSDOS 3.1-TURBOC 


2000 


DEC 11/785 


VAX 


VMS 4 . 3 


2000 


Sun 3/50 


68020-15 


SUN 3.0 


2300 


AT&T 3B2/600 


WE32100-16 


UNIX 5.3.1 


2700 


Compaq 386 


80386-16 


XENIX 5.2 


2750 


Arete 1200 


68020-12 


UNIX V.2. 2 


2800 


Pyramid 90x 


DCU-8 


UNIX V.2 


2900 


Sun 3/160 


68020-17 


SUN 3.0 


2950 


Tandem LXN 2 


68020-17 


UNIX V.2 


3000 


Tower 32/600 


68020-16 


UNIX V.1.02 


3325 


Tower 32/800 


68020-16 


UNIX V.1.00 


3325 


Compaq 386 


80386-20 


XENIX 5.2 


3425 


Pyramid 9Sx 


DCU-10 


UNIX V.2 


3600 


HP 9000/350 


68020-25 


HPUX A.B1 


5925 


Intel 386/24 


80386-20 


UNIX V.3 


6000 


HP 9000/840 


SPECTRUM 


HPUX A.B1 


6675 



Editors Note: The GMX system and the data-COMP MUSTANG-020, 
running 20 Mhz clocks in at over 2000. 
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The Dhrystone benchmark is a standard comparison of C compiler and computer per- 
formance, not a test of overall system thruput. 

When several tests were run, with differing results, the lowest value noted was used. The 
results may also be somewhat inaccurate due to variable system loading. 

EXAMPLE C PROGRAM 

Following is this month's example C program: it is the Dhrystone program. described in the 
text above. 

/• 

* 

* "DHRYSTONE" Benchmark Program 

* 

* The following program contains statements of a high-level programming 

* language (C) in a distribution considered representative: 

* 

* assignments 53% 

* control statements 32% 

* procedure, function calls 15% 

• 

* 100 statements are dynamically executed. The program is balanced with 

* respect to the three aspects : 

* - statement type 

* - operand type (for simple data types) 

* - operand access 

* operand global, local, parameter, or constant. 

* The combination of these three aspects is balanced only approximately . 
* 

* The program does not compute anything meaningful, but it is 

* syntactically and semantically correct. 



/* Accuracy of timings controlled by next two lines */ 

•define LOOPS 50000 /* Use this for slow or 16 bit machines */ 

/'•define LOOPS 500000 /* Use this for faster machines */ 

/• Conpiler dependent options */ 

fundef ENOM /* Define if conpiler has enum' s */ 

lundef STRUCTASSIGN /* Define if conpiler can assign structures */ 

/* define only one of the next two defines */ 

fdefine TIME /* Use time (2) time function */ 

/••define TIMES*/ /* Use times(2> time function */ 

/* define the granularity of your times (2) function (when used) */ 

/••define HZ 50 /* times(2) returns 1/50 second (europe?) */ 

•ifndef ATT3B 

fdefine HZ 60 /* times(2) returns 1/60 second (most) */ 

•else 

•define HZ 100 /• times(2) returns 1/100 second (WECo) •/ 

lendif 

char Version() " "1.1"; 

•ifndef STRUCTASSIGN 

• define structassign (d, s) <remcpy(&(d), &(s) , sizeof(d)) 

•else 

•define structassign (d, s) d - s 

•endif 
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tifdaf 
typedef 

♦ else 

idefine 

Idofino 

Idefine 

Idefine 

Idefine 

Idefine 

lendif 



ENOM 
enuffl 

(Identl, Ident2, Ident3, Ident4, IdentS] Enumeration; 



Identl 
Idant2 
Ident3 
Ident4 
IdentS 



Enumeration int 



Idefine OneToThirty int 
Idefine OneToFifty int 
Idefine Capitall<etter char 



struct 
( 



Record 

struct Record 

Enumeration 

Enumeration 

OneToFifty 

char 



*PtrCoirp; 
Discr; 

EnumConp; 
IntCorrp; 
StrinqCcnnp[30) ; 



\i 



Idefine RecordType 
Idefine RecordPtr 
Idefine boolean 



struct Record 
RecordType * 



Idefine NULL 
Idefine TRUE 
Idefine FALSE 



lifndef REG 
Idefine REG 
lendif 

extern Enumeration Fund () , 
extern boolean Func2 () , 

lifdef TIMES 
♦include <sys/types .h> 
♦include <sya/times .h> 
lendif 



main{) 



ProcOO; 
exit (0); 



* Package 1 
«/ 
int 




IntGlob; 


boolean 


BcolGlob; 


char 


CharlGlob; 


char 


Char2Glob; 


int 


Array IGlob [51); 


int 


Array2Glob[51) [SI] 


RecordPtr 


PtrGli; 


RecordPtr 


PtrGlbNext; 
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ProcOO 



OneToFifty 

REG OneToFifty 

OneToFifty 

REG char 

REG char 

Enumeration 

char 

char 

extern char 

register unsigned int 



Intlocl; 

IntIoc2; 

IntlocS; 

QiarI<oc; 

Charlndex; 

Enuniloc; 

Stringlloc[30], 

String2Ioc[30] , 

*malloc(); 



♦ifdef TIME 
long 
long 
long 
long 



timet) ; 
atarttime; 
benchtime ; 
nulltime; 



atarttime - timet (long *) 0); 

for (i - 0; i < LOOPS; ++i) ; 

/* Con put e a overhead of looping */ 

nulltime - timet (long *) 0) - atarttime; 
tendif 
lifdef TIMES 

time_t atarttime ; 

time_t benchtime; 

time_t nulltime; 

struct tens tens; 



atarttime - tma.tms_utime; 
i < LOOPS; ++i); 



tendif 



times (ttcna) 

for (i - 0; 

times (ttms) ; 

/* Computes overhead of looping */ 

nulltime - tins. Cms utime - atarttime; 



PtrGlbNext - (RecordPtr) malloc (aizeof (RecordType) ) ; 

PtrGlb - (RecordPtr) malloc (sizeof (RecordType)) ; 

PtrGlb->PtrComp - PtrGlbNext; 

PtrGlb->Diacr - Identl; 

PtrGlb->EnunConp - I dent 3; 

PtrGlb->IntComp - 40; 

atrcpy (PtrGlb->StringConp, 

"DHRYSTONE PROGRAM, SOME STRING"); 
strcpy<StringlIoc, "DHRYSTONE PROGRAM, l'ST STRING"); 
Array2Glob[8] (7] - 10; 



— Start Timer — 



tifdef TIME 

atarttime -timet (long *) 0) ; 
lendif 
lifdef TIMES 

times (itms) ; atarttime - tma.tms_utime; 
tendif 

for (i - 0; i < LOOPS; ++i) 

( 

ProcSO; 
Proc4 (>; 
IntLocl - 2; 
IntIoc2 - 3; 
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strcpy (String2Ioc, 

"DHRYSTONE PROGRAM, 2'ND STRING"); 
EnumLoc - I dent 2; 

BoolGlob - ! Func2 (Stringlloc, String2Ioc); 
while (Intlocl < IntIoc2) 
{ 

IntIoc3 - S * Intlocl - IntIoc2; 

Proc7 (Intlocl, IntIoc2, ilntLocS); 

++IntIocl; 
) 

ProcB (Array IGlob, Array2Glob, Intlocl, IntIoc3); 
Procl (PtrGlb) ; 
for (Charlndex - 'A' ; Charlndex <- Char2Glob; 

++Charlndex) 

if (EnumLoc — fund (Charlndex, *C ) ) 
Proc6 (Identl, iEnuiiiIoc) ; 
IntIoc3 - IntIoc2 * Intlocl; 
IntIoc2 - IntIoc3 / Intlocl; 
IntIoc2 - 7 * (IntlocS - IntIoc2) - IntLocl; 
Proc2(tlntlocl); 
) 

/A**************** 

— Stop Timer — 

A****************/ 

♦ifdef TIME 

benchtime - time( (long *) 0) - stazttime - nulltime; 
printf ("Dhry stone (\s) time for %ld passes - lld\n", 

Version, (long) LOOPS, benchtime); 
printf ("This machine benchmarks at %ld dhrystonea/secondXn", 
((long) LOOPS) / benchtime); 
♦endif 
♦ifdef TIMES 

times (ttnis) ; 

benchtime - tms.tms_utime - starttinw - nulltime; 
printf ("Dhzystone (*s) time for tld passes - *ld\n", 
Version, 

(long) LOOPS, benchtima/HZ) ; 
printf ("This machine benchmarks at \ld dhzystones/secondNn", 
((long) LOOPS) * HZ / benchtime); 
lendif 

) 

Procl (PtrParln) 

REG RecordPtr PtrParln; 

I 

♦define NextRecord (* (PtrParIn->PtrComp) ) 

atructassign (NextRecord, *PtrGlb); 

PtrParIn->IntConp - 5; 

NextRecord. I ntComp - PtrParIn->IntComp; 

NextRecord. PtrComp - PtrParIn->PtzConp; 

Proc3 (NextRecord. PtrConp) ; 

if (NextRecord. Discr — Identl) 

I 

NextRecord. I ntConp - 6; 
Proc6 (PtrParIn->EnuiiComp, 

(Next Re cord. EnunComp) ; 
NextRecord. PtrComp ■ PtzGlb->PtrConp; 
Proc7 (NextRecord. IntConp, 10, 

(NextRecord . IntComp) ; 
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} 

else 

structassign (*PtrParIn, NextRecord) ; 

lundef NextRecord 
} 

Proc2 (IntParlO) 
OneToFifty *IntParIO; 
( 

REG OneToFifty Intloc; 

REG Enumeration EnumLoc; 

Intloc - *IntParIO + 10; 

fori;;) 

{ 

if (CharlGlob — 'A' ) 
( 

— Intlioc; 

*IntParIO - Intloc - IntGlob; 

Enumloc - Identl; 

) 

if (EnumLoc — Identl) 
break; 
1 
) 

Proc3 (PtrParCMt) 

RecordPtr *PtrParOut; 

{ 

if (PtrGlb i- NULL) 

*PtrParOut - PtrGlb->PtrCorn><* 
else 

IntGlob - 100; 
Proc7(10, IntGlob, &PtrGlb->tntComp) • 



Proc4 () 
( 

REG boolean Booll>oc; 



Boollcc - CharlGlob — l A' ; 
BoolI<oc I - BoolGlob; 
Char2Glob - 'B* ; 

) 

ProcSO 
{ 

CharlGlob - »A' ; 

BoolGlob - FALSE; 

) 

extern boolean Func3(); 

Proc6 (EnuniParln, EnuniParQit) 
REG Enumeration EnuniParln; 
REG Enumeration *EnuniPar(Xit; 
I 

•EnuniParOut - EnuniParln; 

if (! Func3 (EnuniParln) ) 

*EnumParOut - I dent 4 ; 

switch (EnuniParln) 

{ 

case Identl: *EnuniParOut - Identl; break; 
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case Ident2: 



case Ident3 
case I dent 4 
case Ident5 



if (IntGlob > 100) 

•EnunParOut - I dent 1; 
else 

*Enur*arOut - Ident4; 
break; 

•EnumParOut - Ident2; break; 
break; 
•EnuirParOut » I dent 3; 



) 



Proc7(IntParIl, 

OneToFifty 

OneToFifty 

OneToFifty 

1 



IntParI2, IntParOut) 
IntParll; 
IntParI2; 
•IntParOut; 



REG OneToFifty Intloc; 

Intloc - IntParll + 2; 
•IntParOut - IntParI2 + Intloc; 



1 



Proc8(ArraylPar, Array2Par, IntParll, 
int ArraylPar [51] ; 

int Array2Par(51H511; 

OneToFifty IntParll; 
OneToFifty IntParI2; 
< 

BEG OneToFifty Intloc; 

REG OneToFifty Intlndex; 



IntParI2) 



Intloc - IntParll + 5; 

ArraylPar [Intloc] - IntParI2; 

ArraylPar [Intloc-fl) - ArraylPar (Intloc] ; 

ArraylPar(IntIoc+30] - Intloc; 

for (Intlndex - Intloc; Intlndex <- (Intloc+l); 

++Intlndex) 

Array2Par[ Intloc] {Intlndex] - Intloc; 
++Array2Par [Intloc] [Intloc-l]; 

Array2Par [Intloc+20] [Intloc] - ArraylPar [Intloc] ; 
IntGlob - 5; 



Enumeration Fund (CharParl, CharPar2) 



CapitalLatter 
CapitalLetter 



CharParl ; 
CharPar2; 



REG Capital letter 
REG Capitalletter 



Charlocl ; 
CharIoc2; 



Charlocl - CharParl; 
CharIoc2 - Charlocl ; 
if (CharIoc2 !- CharPar2) 

return (Identl); 
else 

return (Ident2); 



boolean Func2 (StrParll, StrParI2) 



char 
char 

( 



StrParll (30) ; 
StrParI2[30); 

REG OheToThirty 



Intloc; 
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REG CapitalLetter 



Charloc; 



IntLoc - 1; 

while (Intloc <- 1) 

if (Fund (StrParll ( IntLoc] , 

StrParI2[IntLoc+l] ) — Identl) 

I 

Qiarlioc » 'A' ; 
++IntIoc; 
} 
if (Charloc >- 'W && CharLoc <- 'Z') 

Intloc - 7; 
if (CharLoc — 'X') 

return (TRUE) ; 
else 

I 

if (strcmp (StrParll, StrParI2) > 0) 

{ 

IntLoc +~ 7; 
return (TRUE) ; 

} 
else 

return (FALSE) ; 



) 



boolean Func3 (EnumParln) 
REG Enumeration EntmiParln; 
< 

REG Enumeration Enumloc; 

Enuml-oc - EnumParln; 

if (Enumloc — Ident3) return (TRUE) ; 
return (FALSE) ; 
) 

♦ifndef STRUCTASSIGN 
memcpytd. s, 1) 
register char *d; 
register char *s; 
register int i; 
( 



while (1-) *d++ - »£++; 



] 

lendif 

EOF 



FOR THOSE WH 
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WHERE DID ALL THE COMMANDS COME FROM? 



I came across an interesting problem 
the other day. I was looking at the OS-9 
Level II system for the Color Computer. 
Now the color computer comes with 128 K 
of RAM. Once Level II Is booted it has 
about 56K left. This brings back an ear- 
lier issue with the Color Computer and 
Level I. 11 is the old problem of not 
enough memory. Actually there is some- 
what more memory available. If I remem- 
ber right, running Level I had about 46K 
left. It is a sulficient amount to run 
things, but it does not leave a large mar- 
gin. With the Coco 3. windows are also 
available. Use a couple of these and the 
memory goes away quite fast. 

Back to the problem. While examining 
memory with MD1R. I noticed the most 
olten used commands were pre-loaded. 
Ah-hah! I thought. I can free up some 
extra memory by unlinking. I used UN- 
LINK on them and then tried MFREE 
again. I still only had 56K of RAM left. 
Quickly I keyed In MD1R and all the com- 
mands were still there. They must be part 
of the system I guessed. 

I did an IDENT on the OS9Boot file. 
Swiftly all the modules it contained Hew 
by. Not one of the commands was in 
there. Now this was becoming a mystery. 
Where were those commands coming 
Irom? 

I went to bed that night thinking about 
where the commands were coming from. I 
kept telling myself that the basics of OS-9 



had not been rewritten. Then it came to 
me. I knew the answer. In my younger 
days. I would have jumped out bed and 
rushed to the computer see if 1 was right. 
However. I decided to wait until morning 
and try out my hunch. 

The next morning I did another IDENT 
on OS9Boot. Sure enough It was there. Or 
should I say, not there! The SHELL was 
not part of the boot, i did a quick iDENT 
on the SHELL which is in Ihe commands 
directory. And there was the missing infor- 
mation. The SHELL was Ihe first command 
and it was followed by all the OS 9 com- 
mands that I found in memory. Whenever. 
I booted up. CC3GO ( this is the Color 
Computer version SYSGO ) would fork to 
SHELL. Not seeing it in memory, it would 
search the execution directory and load it. 
SHELL'S link count would be increased by 
one. The other modules would be along for 
the ride. As long as the SHELL is linked, 
the other modules stay in memory. 

1 explained the principle a few columns 
ago. but it will not hurt to review it. Mem- 
ory is allocated in large chunks in a Level II 
system. Usually they are 2K in size. But 
this can vary. Another size might be 4K. 
The Color Computer Level II is 8K. If the 
SHELL is loaded into memory by itself, the 
rest of the 2K ( or whatever ) of memoiy is 
left empty. For a shell that is 1 K long, only 
half of the memory is used. The other half 
has been allocated, but lays idle. 
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It Is not entirely a great sin as I have 
made it out to be to waste the memory 
space. In fact in Level II since memory is 
allocated this way. it is inevitable that 
memory will be wasted. This is the sacri- 
fice that must be made for an efficient 
memoiy management system. Every time 
a program Is executed, there will be some 
waste. In a Level I system this can be 
minimal compared to the Level II system. 
In Level I. memory is allocated in 256 byte 
chunks called pages. A module loaded 
Into memoiy is assigned to the start of a 
page. But all the modules reside in the 
same memoiy space. 

An example can help to clarify this. In 
my Level I system. STARTUP has the 
following in It: 

LOAD DIR DEL RENAME 



Here DIR. DEL and RENAME are as- 
signed to a dilTerent block of memory. 
Each block is 2K bytes long. DIR is $2A2 
bytes long at block $ 16, DEL is $ 199 at $ 15 
and RENAME is $1 ID at $17. Together 
they occupy $4D8 or 1240 bytes. The 
remainder of the 6K or 6144 bytes is un- 
used. This means only 20% of the memory 
is being used. 

If the system Is large enough, there is 
not too much concern over whether a few K 
of memoiy is wasted. I run 1 MEG of 
memory on the my regular Level II system. 
I can afford to waste a little memory here 
and there. But if memory is a constraint, 
then it might be necessary to consider ways 
to get the most out of it. One way is to put 
all the commonly used modules into one 
file. 



If I were to use MDIR E alter booting 
we would see something like this. 

Module directory at 09:02:56 

Addr Size Typ Rev Attr Use Module name 



B871 


4FA 


11 


1 r.. 


1 Shell 


A100 


240 


11 


1 r.. 


1 Mir 


A700 


350 


11 


1 c. 


1 Dir 


A600 


A5 


11 


1 r.. 


1 Del 


A400 


110 


11 


1 r.. 


1 Rename 



( This is an abbreviated listing, show- 
ing only a few entries. ) Notice DIR is 
$24D bytes long and is positioned at 
$AI00. DEL is $AD long and is at $A600 
and RENAME is $1 ID long and is at 
$A400. These three modules are collec- 
tively $5 IF or 1311 bytes of memoiy long. 
They use $700 or 1792 bytes of available 
memoiy. This means that 73% of the 
memoiy is actually being used. 

If I add the same thing to my Level 11 
STARTUP file and do an MDIR E. it would 
look like this. 

Module Directory at 14:54:06 



ock 


Offset 



51ze 
529 


Typ 


Rev Attr 


Use Module Name 


7 


11 


2 r... 


2 Shell 


1C 





2 6A 


11 


1 c... 


1 MDir 


15 





199 


11 


1 r... 


1 Del 


16 





2A2 


11 


1 r... 


1 Dir 


n 





110 


11 


1 i... 


1 Renarte 



The advantage to putting them all to- 
gether is that they will be loaded into one 
area of memoiy. What happens is that 
when a name is forked to and it is not in 
memory, the entire file is loaded. No matter 
what is in the file as long as its CRCs and 
header parities are good, it is loaded. The 
modules are loaded into one continuous 
area. The first module is linked. As long as 
its link count ( or any other of the modules 
in that area ) is not 0, the memory alloca- 
tion is good. This is where the convenience 
of putting the shell first and following it 
with the commonly used commands is 
handy. The shell will probably always be 
running. So everything else will stay with 
it. 

Even with a lot of memory in my Level 
II. 1 MEG system. 1 have started to merge 
the commonly used commands. I found 
the easiest way to do it was with a little 
procedure file. Here is the one that I use. 

end /do/cirds 

merge shell copy del dir display ident >shell.l 

merge echo link list load unlink save >shell.2 

merge pud pxd free mfree format attr rename >shell.3 

rename shell shell. old 

merge shell. 1 shell. 2 shell. 3 >shell 

del shell. 1 shell. 2 shell. 3 

attr shell e pe 



( Again this Is an abbreviated listing. ) 
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This Utile procedure changes Ihe work- 
ing directory to the commands directory. 
It merges the files that I want to reside in 
memory. It renames the old SHELL to 
SHELL.OLD. The intermediate names are 
then merged to the Ille name shell and 
they are deleted. Finally the new SHELL'S 
attributes are changed to make the file ex- 
ecutable. I did not delete the old shell. 
Rather I leave it behind renamed. My 
belief that it will be available for future 
use. 

The shell for this is longer then one 
block of memory. But the entire memory 
space that it occupies is much smaller 
then it would be if I had loaded these 
separately. You have to consider how 
much memory is available in your system. 
If you are running Level II on a small 
amount of memory, you might only want 
to make a file called shell that will fill only 
about one block in memory. This would 
be the minimal file size. If your system is 
larger and you don't mind using blocks, 
you can expand this to use more blocks of 
memory. You will have to play around 
with this to see what the best size would 
be. 

BASIC09 TOOLS FOR LEVEL II 

This same principle is applicable to the 
modules in used in other applications. 
BASIC09 TOOLS is a good example to try 
this on. This is a software package that is 
available from Southeast Media. I au- 
thored it. It contains 2 1 subroutine mod- 
ules for use with BASIC09. If the modules 
are loaded into memory in Level II with 
each one occupying 2K of memory, they 
will use up 4 IK of available memory. 
Listing 1 presents a program that will 
alleviate this problem. 

The program in Listing 1 will do noth- 
ing really important except act as a header 
module for a larger file of merged modules 
from the Basic09 Tools. The module does 
nothing. If it should be run. it will return 
without error. To use this module with 
the Tools the following should be created 



in a procedure file. Before running this 
assemble the code in Listing 1 to a module 
called tools.ob). 

chd /dl/cmds 

merqe tools.ob) cflll dpeek dpoke fpos >tools.l 

merge fsize ftrim getpr qetopt qetusr >tools-2 

merqe qtlme upper Insert lower >tools.3 

merge ready setprlor syscall setuar >tools.4 

merqe set. opt stime space swap >tools.5 

merqe tools. 1 tools. 2 tools. 3 tools. 4 tools. 5 >tools 

del tools. 1 tools. 2 tools. 3 tools. 4 tools. 5 

attr tools e pe 

Running this little file will creates a file 
called tools in the commands directory on 
drive D 1 . When you want to use the Tools 
in Level II. enter: 

OS9: load tools 

The entire file will be loaded with all the 
modules. The first module, tools will be 
linked. This will insure that all the mod- 
ules will remain in memory. And what is 
more important they will reside in one area 
of memory. When finished you can remove 
them with UNLINK. Enter: 

OS9: unlink tools 
and they all will be gone. 

I have considered that there are some 
OS9 users who do not have an assembler 
or really want to get Involved with assembly 
language. So in Listing 2 I have Included a 
Basic09 program that will generate the 
module tools.ob]. If you only have Basic09. 
key in this program and it will create the 
module. Then use the above procedure to 
create the merged files. 

That is it for this month. Have a good 
month. See you next time. 

LISTING 1 



00001 
00002 
00003 
00004 
00005 
00006 
00007 

ooooe 

00009 
00010 
00011 
00012 
00013 
00014 
0001S 



' NAME: TOOLS for BasicOS 

• FILE: TOOLS. A 

• BY: Ron Voigts 

• DATE: 19-Jul-Bfi 



• USAGE: 



FUNCTION: 
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00016 


* This program Is to 


be merged with 


0121 




00017 


• Che other Baslc09 


Tools. It is 


0122 


<* Dimension variables used 


00018 


* Che first nodule 1 


n the package - 


013D 


DIM s:BYTE 


00019 
00020 


» 




0144 
014B 


DIM path:BYTE 
DIM count : INTEGER 






00021 


# 




0152 




00022 


use 


/dO/defs/ 


0153 


<* Set up the count for reading 


defsfile 




0172 


count :-24 


00023 


if pi 




0179 




00032 


endc 




017A 


{• Open the file 


00033 






018A 


CREATE Ipath. "tools. obj":WRITE 


00034 


* 




019E 




OO03S 


0021 TYPE sec 


SBRTN+OBJCT 


019F 


(• Loop for COUNT times 


00036 


0081 REVS sec 


REENT+1 


01B6 


(* Reading data and writing it 


00037 


0000 87CO0017 nod 




01O3 


WHILE count>0 DO 


TIE NO, 


T1H AME , TYPE, REVS, ENTRY, 




01DF 


READ s 


00038 


000D 546F6F6C TLNAHS fcs 


•Tools" 


01E4 


PUT Ipath, s 


00039 


* 




01EE 


count :=count-l 


00040 


■ 




0]f9 


END WHILE 


00041 


0012 ENTRY equ 


* 


01FO 




00042 


* This does nothing, but 


returns without 


01FE 


(* Close the path 


error 






020F 


CLOSE Ipath 


00043 


0012 5F clrb 




0215 




00044 


0013 39 rts 




0216 


(■ Fix the attributes 


00045 


0014 809A4D erod 




0228 


SHELL "attr tools. obj pe e" 


00046 


0017 TLEND EQU 


* 


0242 




00047 


end 




0243 
0245 


END 


00000 


error (s) 




0246 


I* The data to be written 


ooooo 


warning(s) 




02SF 


DATA 587, SCO, S00.S17, $00 


soon 


00023 program bytes generated 




0277 


DATA S0D,S21.S81,S0F,S00 


soooo 


00000 data bytes allocated 




028F 


DATA S12,S00,S00,S54,S6F 


S264A 


09802 bytes used for symbols 




02A7 
02BF 


DATA S6F,S6C,SF3,S5F,S39 
DATA SB0.S9A, S4D 


LISTING 2 








proce: 
oooo 


URE toolstrvake 




EOF 




( 


0017 


/ ■ 








001A 


(" Name: make_tools 








002D 


(■* Date: 21-D1C-87 








003F 


(• By: Ron Voigts 








0050 


<• Language: BASIC09 








0064 


<« 








0067 










007E 


(• 








0081 


(" Function: 








008D 


(" This program will create 








O0A8 


(* an executable file called 








00C4 


(* "tools. obj" that can be 








OODE 


(* merged with the other 








00F6 


(• BasicO? Tools. 








0107 
010A 


(• 
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NOTES 



This Is not a criticism of anyone, just an observalion of fact. Similar occurrences seem to 
happen all loo frequently with regard to computers and computer operating systems. The 
present subject is the Mustang-08A system sold by Data Comp. which uses the Peripheral 
Technology single board 68008 based computer. The fact that this system is put together from 
parts from several different sources helps greatly to compound the confusion. 

First of all. the Western Digital hard disk controller can control up to three hard disk drives, 
which Western Digital calls 1.2. and 3. Peripheral Technology found that the controller defaults 
to 1 on power up and/or power down, and that momentary power Interruptions frequently 
caused crashes on what WD calls drive 1. They therefore chose to leave drive 1 unconnected and 
use drives 2 and 3 (good thinking there). Mlcroware calls the hard disk drive devices /hO and 
/hi. WD drive 2 is therefore /hO. and drive 3 is /hi . SK'DOS being veiy FLEXlike numbers 
drives 0, 1,2,3. etc. It allows the user to configure any mix of hard and floppy disk drives as 
sequential logical drive numbers in any order. The configuration utility calls the hard drives hO. 
hi. and the floppy drives fO. fl . etc. The syntax for defining Logical Drive to be fl. for example 
is L0=F1, After assigning the drive numbers, they are referred to as 0. 1. 2. etc. 

If you are not thoroughly confused yet, the monitor in the Muslang-08 A. when you choose 
the option to park the hard disk, asks you "A or B?" A corresponds to /hO and B to /h 1 . Since 
the monitor for this machine was certainly not done for an IBM compatible. 1 wonder why 
suddenly the drives are referred to as A and B? 

This little confusion is mild compared to some of the others that have arisen primarily 
because of "tradition" in computing. Ifyou have ever tried to use modules such as A/D converters 
and the like that are "computer compatible" or struggled over printer manuals, you probably 
wonder as 1 do. why something as simple as numbering the bits In an n bit word can't be 
standardized. Motorola, in their 8 bit processor line at least, has always numbered their data 
lines B7 through BO. B7 being the high order bit. Some module and/or printer manufacturers 
use B8 through Bl. others use either of those to represent the bits In reverse order. BO or Bl 
being the highest order bit. and B7 or B8 the lowest! To compound things further, the 
microprocessor manufacturers can't even agree on how to store a "double byte" In memory. 
Motorola uses Most significant - Least significant with the highest order byte stored at the lowest 
address. Some of the others use the reverse order, the low order byte being stored at the lowest 
address, the equivalent of storing the hexadecimal number 1234 so that when read from left to 
right it reads 34 1 2! This results in some confusion in storing ASCII text In memory. A 1 6 bit word 
stores two characters, so the word "FLEX" for example. Is stored In memory in order from lower 
to higher memory address as "LFXE". The whole thing looks like a conspiracy so that those who 
don't know will require a great deal of help from those who "do know." Actually, all that happened 
is that computers came along and breakthroughs in price/performance ratio happened so fast 
I 
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that each company simply developed a standard of its own without giving any thought to the 
possibility that someone else would do it differently. The situation is simply a result of the very 
rapid development of the technology. 

Perhaps that is an oversimplification. Good old Big Blue seems to go out of its way to avoid 
doing things in a standard way. Long after most of the computer and peripheral manufacturers 
had standardized on ASCII codes, IBM still insisted on its EBCDIC code. ASCII is an acronym 
for American Standard Code for Information Interchange. The name EBCDIC is an acronym for 
something that I've seen, but don't have at hand, probably something like Extended Binary Code 
for Digital Information Communication or the like. At any rate. I know of a company that owes 
its existence to this. The company builds interface boxes to allow IBM owners to use standard 
peripherals. At the simplest, they build two-way ASCII/EBCDIC code converters. Actually, their 
boxes do more than that, in that they are also protocol converters. 

Years ago. Digital Equipment Company built their PDP-8 series of computers. They were 
12 bit machines, and DEC used Octal notation rather than Hexadecimal. Octal was line for 12 
bit machines because 12 is divisible by 3. However, when 16 bit machines came along, people 
started thinking of 16 bits as a "word" made up of two 8 bit portions called "bytes." It is much 
easier to think of these in terms of groups of four bits as in Hexadecimal notation. Take for 
example, the following: 

0100 0011 0010 0001 Hexadecimal 4321 

Now split it into 3 bit chunks for Octal 

100 001 100 100 001 Octal 041441 

Let's do it again, representing the 16 bit word as two 8 bit 
bytes : 

0100 0011 0010 0001 Hexadecimal 43 21 



01 000 011 00 100 001 Octal 103 041 

As you can see. working with Octal codes. 16 bit words, and 8 bit bytes is thoroughly 
confusing! Hexadecimal representations nicely split in the middle of the word to make two bytes. 

PAT Bug 

My friend Albert McDaniel at the University of Maine called the other night. He said that 
he had found a way to cause PAT to lock up the computer. All presently distributed copies of 
PAT have this problem. If you have the PL/9 6809 version and you own PL/9 you can fix It easily. 
The same goes for the 68000 version in "C" if you have the "C" compiler. 

The symptom is Just this: If you backspace from a line to the previous one and then hit ESC 
A E to delete to the end of the line, and If there are no characters to the right of the cursor, the 
computer will LOCK UP. 

The cure is to Ilnd the procedure ESCAPES. In the PL/9 version it is in the COMMANDS.LIB 
Hie. The "C" version is all in one file. In either case Just find the procedure (I should say the 
function in "C"). Now find: CASE 5. The PL/9 version is: 

WHILE CH <> CR BEGIN 



22 April '86 68 Moo Journal 



Change this to: 

WHILE SCREEN (CURCHR) <> CR -AND SCREEN (CURCHR) <> BEGIN 

The "C" version: 

while {screen [curchr] != cr) 
Should be changed to: 

while (screen [curchr] != cr S4 screen [curchr] !=0 ) 

The problem was that at the end of a line of text, what follows is a large number of nulls. 
Just exactly why the result was not simply to delete the next whole line rather than locking up 
the computer. I am not sure, but (he change causes nothing at all to happen if there are no more 
characters to the right of the cursor. The cursor simply returns to where It was. If you don't have 
the appropriate compiler to make the change, just be warned that there Is a problem. I suspect 
that this has gone undetected for so long because It is not something you would ordinarily do 
while editing. It doesn't make sense to delete to the end of the line when you are already AT the 
end of the line. Nevertheless, good software should be tolerant of key sequences that don't make 
sense If only to guard against peculiar things happening when a key Is struck by accident. 

Self Analysis Time 

I recently wrote a letter to Don Williams Indicating that I would no longer be a regular 
contributor to '68' Micro Journal. No, I'm not mad at anyone for anything. It's just that not much 
is happening to write about, either In the way of new developments or In my computer 
applications. I see clearly that the 6809 is reaching the end of Its life as an interesting subject, 
at least to me. After using the newer, bigger, faster systems. I find It hard to be satisfied with 
the 6809 system anymore. At work, our largest program used to be 4K or 6K and wonderful PL/ 
9 would compile such a program on our 2 MHz system with 8" lloppy disk drives in a minute or 
so. quite tolerable and considerably faster than most of the other compilers available then and 
now. 

Lately we have been going on to bigger and better programs with keyboard operator 
interface, lots of menus and prompts etc. Our programs have grown to 20K on the average, and 
we are pushing 32Kwlth some of them. Compile time really gets stretched out Intolerably. When 
I compile the same programs on a 68008 or 68020 system using PLuS or "C," the compile times 
are back down In the one minute range. The company can't afford to have its programmers kill 
ten minutes or so for each little change In a program, so we must move on to the newer 
processors. Oh. sure, we could push the speed up by substitutinga Hitachi 6309 3 MHz version 
and putting a hard disk on the system. We could write our own software to tickle a DAT so we 
could expand memory, but as things stand, we can't edit a text file larger than about 25K in one 
piece. PATs source code Is over 65K. and It is split into a number of library files In the 6809 
version. The Plus and C versions for the 68XXX can all edit themselves in an edit buffer of 1 00 K 
or so. and the buffer size can be increased to whatever memory can stand. (Of course PAT and 
several others of the 6809 FLEX editors have the feature of being able to load part of a disk file, 
edit that, save that portion and load another part of a file from the disk, but if you have ever tried 
that you will agree it is a pain). 

Presently. I am In limbo, that Is. the old computers are uninteresting and destined for the 
museum shelf. The new ones have not yet been applied to our development problems. I don't 
want to write about the old ones anymore, and I don't know enough about the new ones to write 
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intelligently about them (yet). Perhaps the switch to the newer ones will set me olTagaln in a flurry 
of activity to learn how to become an efficient assembler programmer, thoroughly understand 
other operatingsystems than FLEX. etc. I presently use OS9 and MS-DOS nearly every day. but 
I don't understand either to the depth that I understand FLEX and perhaps SK # DOS. 

What I am getting at is that at least for a while. I will be a now-and-then contributor to '68' 
Micro Journal. I Just received the newest version of PLuS on a 3.5 inch disk, so a review of that 
will have to wait until I can get a copy on a disk that I can read with one of the computers that 
are available to me. When I can. I will do a complete review on that, and on OmegaSoft Pascal 
as well. I've given you bits and pieces of reviews of both over the past year or so. and it really 
isn't fair to the suppliers for me not to give you a complete review. I'll try to approach both as 
a first time user, though I have used the 6809 versions of them for a long lime. 

Part of my frustration with writing this column has always been that 1 am a "comparer". 
I tend to relate something new to something that I already know about rather than to look at it 
on its own merits. A good review really ought to discuss software on its own. Does it function 
as advertised? Does it do some things particularly well? Does it have some weak points? When 
I was a beginner, I think I was much more objective than now. Presently I have some rather hard 
and fast opinions with regard to software and how it should work. My tolerance level for 
something different, that doesn't quite fit my mold or pattern is getting smaller. Perhaps 1 have 
become too much a critic. When I first purchased The Technical Systems Consultants Editor 
(called EDIT) for the 6800 system (on a cassette tape, no less), I marveled at it, since I had never 
used a text editor before. Anything that would allow me to edit text would have been a wonder 
at the time. Now I've used a dozen or so editors, and ended up writing my own. 1 couldn't possibly 
review an editor objectively anymore! 

What can be said about a "C" compiler? If it is reasonably complete, it compiles standard 
"C" source lines and has a reasonable "Standard Library" it is OK. Of course one can look at 
compile times, object code size and benchmark execution tests, but that gets pretty old after a 
while. Is my predicament becoming clearer? 

I think I can sum it all up briefly by saying that at least for the present, this stuff is gelling 
to be old to me. Oh. don't think I've curled up and died by any means. I spent a day of the 
lhanksgiving holiday and a couple of evenings back again at the McCosh "C" compiler for the 
6809. I've re-acquainted myself with Whimsical from John Spray, and I have been doing a special 
version of JUST for the Centronics 737 printer since I managed some time ago to pick up three 
or four of them in pretty good shape. The 737 was also made as the Atari 825 for use with the 
older Atari computers. It has a nice proportional spaced type font. A few years ago. Lane Lester 
reworked JUST in the PL9 version to work with a proportional type font on one of his printers, 
and I later modified it (primarily changing the character width table) to work with the Centronics. 
I've recently adapted that version (I call it CJUST for Centronics) to run on the 68000 system by 
translating it to "C." I've been debugging it more thoroughly thanks again to Albert McDaniel 
who recently bought a Mustang-08A. Albert has a 737 and he found some bugs in CJUST almost 
immediately. 

At any rate, yes, I am still computing on the 6809 running FLEX, the 68XXX systems 
runningOS9. and the Tandy IBM compatibles running MS-DOS. Lately, though I have had more 
fun computing than writlngabout it, since my projects are the kind that draw quitevalid criticism 
from readers as being too involved and/or too specialized. 

By the way. a serious bug has been called to my attention in the scientific functions package 
that I translated from PL9. and that is included in hard copy form in the manual for Windrush 
"C." The error is trivial to fix. but it causes great problems with the exp() function. Just inside 
the "start" bracket ( for the exp function there is a variable declaration "int k:". Using an integer 
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for k seriously limits the range over which the exp function works properly. It does not work at 
all for negative arguments. The declaration should be "double k:". With this small change, the 
function will work vastly better. I guess this proves that not very many users of 6809 systems 
actually do any scientific calculations. This library has appeared in the manual for at least 2 
1/2 years, and no one has called the bug to my attention before last month when Charles Rook 
of Phoenix wrote me a letter describing the problem (and the cure). Thanks. Charles! 

As I get back at this I note that nearly a month has gone by since I wrote the last paragraph 
above. I expect that I will continue to be a conlributor to '68' on a less regular basis than 
previously, as long as this publication exists. I've made some progress toward having a 68008 
system running very reliably and I am about to launch into the world of 68XXX assembler 
programming, the learning of which is an absolute necessity before the company switches to 
those processors. I would feel it to be a terrible handicap to have to program only in a higher 
level language without any knowledge of assembler programming techniques. Of course 
switching from the 6809 to the 68XXX is not like starting from scratch. 

Since I've already found it possible to write little utility programs for the 68XXX in "C" or 
PLuS. I'll probably be doing some of that along with learning Assembler. Excuse me. Don but 
1 will also be going in another direction just a little (for my own satisfaction primarily). I have 
found that the newest update of Turbo Pascal for the IBM compatibles has enough of an interface 
with the screen to make it possible to translate PAT into it. There are Pascal procedures to clear 
the screen, place Ihe cursor at a screen position, erase to the end of a line. etc. I have one 
reservation (or maybe two) about that as a project. First. I expect the executable file will be quite 
large, and secondly. I have some doubts about the execution speed. Maybe I'll be pleasantly 
surprised. At any rate, one of the projects on my list is to translate enough PAT to Turbo Pascal 
to see if the result would be usable. I'd really like to get all the systems that I use running the 
same editor. That sure would make life simpler! 

As I write this. I have been on an impossible work project for the last two months. Time 
there has kept me from much computing that was not directly related to the project (both at work 
and at home). The one exception has been a little diversion I started to keep my sanity. I've been 
translating the MONOPOLY pro-am from "10 1 Games in BASIC" to PL9 and improving it as I 
go. I am hoping we are about at the end of the big work project sol can start to think about other 
things again and get back to some "exploratory" computing with the 68XXX systems again. 
Should that happen, or perhaps I should say when that happens. I will most likely be inspired 
to write more columns. 

Editor's Note: Ron Anderson has been a regular contributor to 68 Micro Journal since it's first 
year. We have all come to respect his expertise and appraisals, concerning both software and hard- 
ware. His column was the longest continuous running computer magazine column I am aware of 
It can be truthfully said - "Ron Anderson is a true pioneer in the micro computer world. " And we 
will all miss his monthly visits. 

So I believe I not only speak for myself and the entire staff here at Computer Publishing. Inc., 
but for all of our readers when I say - "Don't stay away too long Ron, we all thank you for 
your sharing and look forward to your next visit!" 

DMW 
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ELEMEMTARY MERGING 

Looking at Diagram 26 of our previous lesson, we're going to see if we can reduce the number of 
rows in the flow-table by merging (or combining) specific rows. The key lies in the Box -As of each row. 
Our llrst step is to check for EQUIVALENCES by commencing with row 1 . noting its Box-A pattern 
(namely 1.2.8) and scanning the patterns for all succeeding rows for an identical pattern. Out of luck! 
So we note row 2's pattern (3.2,-) and search for a match in all succeeding rows. Again no luck! So 
we try checking row 3. row 4. etc. all the way through the table. Not a match to be found anywhere!! 
But we don't despair! Having found no direct equivalences, we'll look for PSEUDO-EQUIVALENCEs. or 
false equivalences, instead. 

How do we do that? you ask. Well, we've already observed that in our flow-table there are several 
empty addresses INTO WHICH THE CIRCUIT ACriON DOES NOT ENTER. As these are (impossible) 
phi-states, we may make them anything we choose without affecting the circuit action. Let's consider 
rows 2 and 10 as an example of what we have In mind! Their row-patterns read 3.2.- and 3. -.10 
respectively (where '-' signifies phi) , so we'll make them both read 3.2. 10 by changing row 2's '-' into a 
10 and row 10's '-' into a 2. One further step! Imagine being able to lift up row 10 completely and 
superimpose it on row 2. IF. AND ONLY IF. THE BOX-Cs ARE COMPATIBLE AS WELL. WEVE GOT A 
PSEUDO-EQUIVALENCE. Itiat is. we MUST NOT find a 1' overlaid on a '0\ or vice-versa. It's quite 
OK for a 1 or a (or even phi) to overlay a phi. as these are not Incompatible, but a 1 or a must then 
take precedence over a phi. 

There's no conflict at all between row 2 and row 10. so we'll decide that these two rows are in fact 
pseudo-equivalent, ie row 10 is equivalent to row 2. Row 10's llrst two Box-Cs are subordinate to 
those of row 2, but address 01 .10 gets inserted into address 01.2. and row 10 Itself eliminated. Fi- 
nally, as row 10 is the same as row 2. we go through the (low table and change all 10s occurring In 
Box-A to 2s. If you now check out the action commencing at address 00.5. you'll find that you'll 
correctly end up at address 00.3. JUST AS BEFORE. 

So now we're down to 10 rows only! Further checks Indicate that rows 4 and 1 1 can also be 
merged in this way. by forcing them Into the pattern 5,4,1 1 . as can rows 6 and 8 by forcing them into 
the pattern 7.6.8. 

We've only got 8 rows now. with no further merging possible, but 8 rows means we only need 3 
relays to do the Job Instead of the original 4. Merging, by the way. need not be restricted to only 2 
rows at a time. ANY NUMBER of rows which are equivalent or pseudo-equivalent may be merged! For 
example, three rows with the patterns 1,2.3 and 1.-.3 and 1.2.- may be merged into one row with the 
pattern 1 ,2.3. We'll deal more fully with this a little later when we'll consider merging in much more 
detail. 

At this stage, we've got an 8-row flow-table with rows numbered 1. 2. 3. 4. 5. 6. 7 and 9. so for the 
sake of neatness we finally change all black-9s to black-8. ending up with the flow-table of Diagram 
27a (ignoring for the moment the "ied" numbers In Box-Bs). 



26 



April 88 



68 Micro Journal 



v*i*a 



N. 


00 


o 


10 16 


Ol « 


1 


l|o 


2 


(6 


6 


s 


o 


ooo 


00 


ooo 


2 


3 


% 


2 


)8 


2 


10 


2 


#oo 


ooo 


OlO 


3 


3 


h 


it ai 


* 


w- 


6 


IOO 


100 


too 


i* 


X 


7 


* 


23 


if IS 


7 


000 


100 


001 


5" 


5 


3 


6h 


al" 


3 


010 


OlO 


OlO 


6 


7 


1 


6 


17 


6]9 


i 


oc4> 


OlO 


ooo 


7 


l\s 


7 


at 


4-13 


s 


oo\ 


ocn 


OOI 


t 


1 * 


loo 


t|l3 


A- 


$00 




100 



(a) 
CONSTRUCTING THE STATE-DIAGRAM 



1 







2 


2 




3|6 




* 


7 


ooo 




OlO 




WO 




1 1 ! 


}< 












1' 


% 


4- 




75 




6 


1 




S 


3 


100 


IOI 


^ 


OOI 




o\ 1 



Diagram 27 



(b) 



Holding to our normal procedure, the next step is to draw up a state-diagram of eight units, whose 
Box-As are numbered from 1 to 8 in black, as shown in Diagram 27b. and then to add the arrows in 
this manner : 

Commencing with row 1 of the FLOW-TABLE, we note that there are two ways out of this row (keep 
an eye on the Box- As), one of which is to row 2 and the other to row 6. so in the state-diagram we 
draw an arrow pointing FROM unit 1 TO both units 2 and 6. Row 2 has only one way out, to row 3. so 
we draw an arrow FROM unit 2 TO unit 3 in the stale-diagram. Row 3 goes to rows 4 and 8. and so 
on until we have the rather complicated pattern of arrows of Diagram 27b. 

GRAY-CODING THE STATE-DIAGRAM 

Knowing that we have 3 relays to play with, we must now Cray-code all the Box-Cs of the slate- 
diagram, which means that we have to insert a 3-bil binary code (one bll for each relay) such lhal no 
two units connected by an arrow will differ by more than one bll-position. A first allempl would be to 
code Ihe loop 1-2-3-8-1 with the familiar 00. 01. 11. 10 pattern for the first 2 bil-positions and a 
peimanenl for bil-3. Then we'd try the loop 2-3-4-5-2 (mainly because two of them are already 
coded), noling lhal in proceeding from 1-2-3 we've gone through the patlem "no relays energised", 
"one relay energised" and "two relays energised". So lei's preserve this patlem (though we're not 
BOUND to do so) by entering 1 1 1 in unit 4. which leaves us no choice but to inseil 01 1 in unit 5. as 
unit 5 MUST be one-bit different from both unils 4 and 2. and I 10 has already been used up in unit 3. 

That's 6 down. 2 to go! Let's tackle Ihe loop 4-5-6-7-4. keeping an eye on the fact that unit 6 must 
not only be one bit different from unit 5 bul also from unil 1. which leaves us little alternative bul to 
insert 00 1. This In lum compels us to enter 101 in unit 7 lo keep it one bit different from both units 4 
and 6. 

Our stale-diagram is now completely Gray-coded, and we can therefore Insert Ihe decimal equiva- 
lents of these codings (In red) in Section B of all unils. and Ihen transfer these figures to the outside 
left-hand column of the flow-table Itself. 
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levels one and two (three GIMIX) 6809. all 68XXX OS-9 standard systems. Equivalent to regular 
SCULFTDR versions 1.4:8. One of if not the most efficient and easy to dcvelope DBMS type systems 
running under OS-9! A system of flexible keyed file access that allows cxtiemely f;ist record and data 
retrieval, insertion and deletion or other programmed modifications. Access by key or in ascending 
order, very fast. The system provides automatic menu generation, compilation and report generation. 
Practically unlimited custom input format and report formatting. A rich set of maintenance and repair 
utilities. An extremely efficient development environment that cuts most programming approximately 
60% in development and debugging! Portable, at source level, to MS-DOS. UNIX and many other lan- 
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Standard Version: 1.6 6809 - $1295.00 
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ASSEMBLERS 

ASTRUK09 from S.E. Media ■- A "Structured Assembler for the 6809" 
which requires ihe TSC Macro Assembler. 
F, S. CCF - $99.95 
Macru Assembler for TSC -- the FLEX. SK'DOS STANDARD 
Assembler. 

Special- CCF $35 DO: F.S SS0D0 
OSM Emended 6809 Macro Assembler from Lloyd I/O. •- Provides local 
labels. Motorola S-records, and Intel Hex records; XREI-'. GeneOiate 
OS-9 Memory modules under FLEX. SK'DOS. 
FLEX. SK'DOS, CCF, OS-9 $99.00 
Relocating Assembler/Linking Loader from TSC -- Use with many of the 
Cand Pascal Compilers. 
F. S. CCF SIS0.O0 
MACK, by Graham Troll from Windiush Micro Systems •- Co-Resident, 
Editor and Assembler; fast interactive A.L Programming for small lo 
medium-sized Programs, 
F.S.CCF- $75.00 
XMACK - MACE w/Crosi Asscmblcrfor 6800/1/2/3/8 
F. S. CCF - S98.O0 

DISASSEMBLERS 

SUPER SLEUTH from Computer Systems Consultants Interactive 
Disassembler extremely POWERFUL! Disk File Binary/ASCII 
Examine/Change, Absolute or FULL Disassembly. XREF Generator, 
Label "Name Changer", and Files of "Standard Label Names" for 
different Operating Systems. 

Color Computer SS.50 B us tall wl A .L. Source) 

CCD (32K Rea'd) Obj. Only $49 00 

F. S. $99.00 ■ CCF, Obj. Only $5000 U. $100.00 

CCF. ^Source $99.00 O, $101.00 

CCO, Obj. Only $50.00 

OS9 68K Obj. $10000 wiSource $200 00 
DYNAMITE* - Excellent standard "Batch Mode" Disassembler. Includes 
XREF Generator and "Standard Ubel" Files. Special OS-9 options w/ 
OS-9 Version. 

CCF, Obj, Only $100 00 . CCO, Obj. $ 59.95 

F, S, " " $100.00 . 0. object only $150.00 

U. " " $300.00 

CROSS ASSEMBLERS 

TRUE CROSS ASSEMBLERS from Compiler Systems Consultants - 
Supports 1 802/5, Z.80, 6800/ 1/213/8/ 1 1/HCI I. 6804, 6805/HC05/ 
146805, 6809/00/01. 6502 family. 8080/5. 8020/1 /2/3S/C3 5/39/ 40/48/ 
C48/49/C49/5078748/49. 8031/51/8751. and 68000 Systems. 
Assembler and Listing formats same as target CPU's format. Produces 
machine independent Motorola S-Text 
68000 or 6809. FLEX. SK'DOS. CCF. OS-9, VnU'LEX 

any object or source each . $5000 

any 3 object or source each - $100.00 

Set of ALL object $200O0- w/source $500 00 
XASM Cross Assemblers for FLEX. SK*DOS from S.E. MEDIA -- This 
set of 6800/1/2/3/5/8. 6301. 6502. 8080/5. and 280 Cross Assemblers 
uses the familiar TSC Macro Assembler Command Line and Source 
Code formal, Assembler options, etc., in providing code for the target 
CPUs. 

Complete set. FLEX. SK'DOS only - $150 00 



CRASMB from LLOYD I/O •• Supports Motorola's, Intel's. Zilug's. and 
other's CPU syntax for these 8-Bit microprocessors: 6800, 6801, 6303, 
6804, 6805. 6809. 681 1 (all varieties); 6502, 1802/5, 8048 family. 8051 
family, 8080/85. Z8.Z80, and TMS-7000 family. Has MACROS, 
Local Labels. Label X-REF. Label Ungth to 30 Chars. Object code 
formats; Motorola S-Uecurds (text), Intel HEX Records (text), OS9 
(binmy), and FLEX, SK*DOS (binary). Written ui Assembler ...e.g. 

v .TO|J'Wt- 
CPU TYPE . Price each: 

For: MOTOROLA UVTEL OTHER COMPLETE SET 
FLEX9 SI50 S150 S150 S399 

SK'DOS SI50 S150 S150 S399 

OS9/6809 S150 S150 S150 S399 

OS9/68K S432 

CRASMB 16 32 from 1J.OYD I/O - Supports Motorola's 68000. and has 

same features as the 8 bit version. OS9/6&K Object cole Formal allows 

this cross assembler lo be used in developing your progiams for OS9/ 

68K on your OS9/6809 computer 

FLEX. SK'DOS. CCF, OS.9/6809 $24900 

COM MV NIC A TIONS 

CMODEM Telecommunications Program from Computer Systems 

Consultants. Inc. — Menu-Driven: supports Dumb-Termini) Mode, 
Upload and Download in non-protocol mode, and the CP/M "Modem?" 
Christenscn protocol mode lo enable communication capabilities for 
almost any requirement. Written in "C. 

FLEX. SK'DOS. CCF. OS.9. UniFLEX, 68000 <f 6"«09 with 
Source $100.00 - without Source $5000 
X-TALK from S.F.. Media • X TALK consists of two disks and a special 
cable, Ihe hookup enables a 6809 SWTPC computer lo dump UniFl.KX 
files directly to tlie UniFLEX MUSIANG-O20. This is the ONLY 
currently available method to transfer SWTPC 6809 UniFLEX files to a 
68000 UniFLEX system. Gimix 6809 users may dump a 6809 
UniFLEX fie to a 6809 UnilT-EX five inch disk and it is leadable by 
the MUSTANG-O20. Ihe cable is specially prepared with internal 
connections lo match ihe non-siandard SWTPC SO/9 I/O Db25 
connectors- A special SWTPC St cable set is also available. Users 
siiould specify whiah SWTPC system he/she wishes lo communicate 
with the MUSTANG £20. The X-TALK softwaie is furnished on two 
disks. #itc eight inch disk contains S.E. Media modem program C- 
MODEM (6809) and the other disk is a MUSTANG -020 five inch disk 
with CMODEM (68020). Text and binary files may be dirccily 
transferred between the two systems. The CMODEM programs are 
unaltered and peifoim as excellent modem programs also. X-TALK 
can be purchased with or without the special cables, but this special 
price is available to registered MUSTANG-020 users only. 

X-TALK Complete (cable, 2 disks) $99.95 

X . TALK Software (2 disks only) $69.95 

X.TALK with CMODEM Source $149 95 
XIMTA from S.E. Media - A COMMUNICATION Package for the 
UniFLEX Operating System. Use with Ci'/M. Main Frames, other 
UniFLEX Systems, etc. Verifies Transmission using checksum or 
CRC; Re-Transmits bad blocks, etc. 

U . $299.99 



AvilkfellllyUfdiifc 
O.OSS.S.SK-0OS 
F • FLEX, U • UniFLEX 
CCO • Color Compuktr OS-* 
CO' . Color Computer FLEX 




South lias t 'Media 

SSQO Cassandra. Smith "Kd- ■ 9CiKSon, In. 37343 
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•• Shipping •• 

Add 1% U-S.A. <nln. SLSO) 
Fartltn Sorfac* Add 5% 

FoKlfi Airmail Add 10* 
Or C.O.D. SBIpploa Onli 
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PROGRAMMING LANGUAGES 

PL/9 from Windnish Micro Systems -■ By Graham Trott A combination 
Editor Compter Debugger. Direct •ounx-io-object compilation 
delivering fail, compact, re-entrant, ROM-able, PIC. 8 A 16-bit 
Integer! A 6-digit Real number! for all real-world problem!. Direct 
conuol over ALL System resources, including interrupts. 
Oxnprchatiive libraty support; simple Machine Code interface: step- 
by-stcp tracer for instant debugging. 500+ page Manual with tutorial 
guide. 

F.S.CCF-SI98M 

PASC from S.E. Media - A FLEX9. SK*DOS Compiler with a defmile 

Pascal "flavor". Anyone with a bit of Pascal experience should be able 
to begin using PASC to good effect in short order- The PASC package 
comes complete with three sample programs: ED (a syntax or structure 
editor), EDITOR (a simple, public domain, screen editor) and CHESS 
(a simple chess program ). The PASC package come complete with 
source (wmtlen in PASC) and documentation. 
FLEX.SK'DOS S95.00 

WHIMSICAL from S.E. MEDIA Now supports Real Numbers "Structured 
Programming" WITHOUT losing the Spool and Conliol of Assembly 
language! Single-pass Compiler features unified, user-defined I/O; 
produces ROMable Code; Procedures and Modules (including pre- 
compiled Modules}; many "Types" up to 32 bit Integers. 6 -digit Real 
Numbers, unlimited sized Arrays (vectors only); Interrupt handling; 
long Variable Names; Variable Initialization; Include directive; 
Conditional compiling; direct Code insenion; conuol of the Slack 
Pointer; etc Run-Time subroutines inserted as called during 
compilation. Normatty products 10% less code than PL/9 
F.SandCCF SI95.00 

KANSAS CITY BASIC from S.E. Media - Basic for Color Composer OS-9 
with many new commands and sub-functions added, A full 
unplcmen union of the IF-111EN-ELSE logic is included, allowing 
nesting to 2SS levels. Sitings are supported and a subset of the usual 
siring functions such as LEFTS. RIGHTS. MIDS. STRINGS, etc. arc 
included. Variables are dynamically allocated. Also included arc 
additional features such as Peck and Poke. A must for any Color 
Computer user running OS-9. 
CoCoOS-9 S39 95 

C Compiler from Wlndrush Micro Systems by James McCosh. Pull C for 
FLEX, SK'DOS except bit-fields, including an Assembler. Requires 
the TSC Relocating Assembler if user desires to implement his own 
Librertts. 

F.SandCCF S295 00 

C Compiler from Introl - Full C except Doubles and Bit Fields, 

streamlined for the 6809. Reliable Compiler; FAST, efficient Code. 
More UNIX Compatible than most. 

FLEX, SK'DOS. CCF. OS-9 (Level II ONLY). U ■ S57SSO 

PASCAL Compiler from Lucldala -■ ISO Based P Code Compiler 
Designed especially for Microcomputer Systems. Allows linkage to 
Assembler Code for maximum flexibility. 

F. Sand CCF5" - 1190.00 F. S S: S205.00 

PASCAL Compiler from OmegaSofl (now Certified Software) •• For the 
PROFESSIONAL; ISO Based, Native Cole Compiler. Ptimarily for 
Real-Time and Process Control applications. Powerful; Flexible. 
OS-9, F. S and CCF . S550.00 
OS-9 68000 Version -S900. 00 



KDASIC from S.E. MEDIA - A "Native Code" BASIC Compiler which is 
now Fully TSC XBASIC compatible The compiler compiles to 
Assembly Language Source Code. A NEW. streamlined. Assembler is 
now included allowing the assembly of LARGE Compiled K BASIC 
Programs. Conditional assembly reduces Run-time package. 
FIEX. SK'DOS. CCF. 0S.9 Compiler /Assembler $9900 

CRUNCH COBOL from S.E. MEDIA - Supports large subset of ANS1I 
level 1 COBOL with many of the useful Level 2 features. Fidl FLEX, 
SK'DOS FUc Structures, including Random Files and the ability to 
process Keyed Files. Segment and link large programs at runtime, or 
implemented as a set of overlays. The System requires 56K and CAN 
be run with a single Disk System. A very popular product 
FLEX. SK'DOS, CCF S99.9S 

FORTH from Stearns Electronics -- A CoCo FORTH Programming 
Language. Tailored to the CoCot Supplied on Tape, transferable to 
disk. Written in FAST ML. Many CoCo functions (Graphics. Sound, 
etc.). Includes an Editor. Trace, etc Provides CPU Carry Hag 
accessibility. Fast Task Multiplexing, Clean interrupt Handling, etc for 
the "Pro". Excellent "Learning" toull 
Color Computer ONLY ■ S58 9$ 

FORTHBUILDER is a stand-alone urges compiler (crasscom piler) for 
producing custom Forth systems and application programs. 
All of the 83-suuidard defining words and accural structures arc 
recognised by FORTHBUILDER. 

TORTHBUII.DER is designed to behave as much as possible like a 
resident Foith inteipreicr/compiler, so that most of the established 
techniques for writing Forth code can be used without change, 
like tompilcrs for other languages. FORTHBUIl-DER can operate in 
"batch mode". 

The compiler recognizes and emulates large! names defined by 
CONSTANT or VARIABLE and is readily extended with "compile- 
time" definitions to emulate specific target words. 
FORTHBUILDER it supplied as an executable command file 
conliguied for a specific host system and target piocessor. Ob/act 
code produced from the accompanying model source code is royalty- 
free to licensed users. 
F. CCF. S S99.9S 

EDITORS & WORD PROCESSING 

JUST from S.E Media - Text Formatter developed by Ron Anderson; for 
Dot Matrix Printers, provides many unique features. Output 
"Formatted" Text to the Display. Use the FPRINT.CMD supplied for 
producing multiple copies of the "Formatted" Text on the Primer 
INCLUDING IMBEDDED PRINTER COMMANDS (very useful at 
other times also, and wonh the pice of the program by itself). "User 
Configurable* for adapt mg toother Printers (comes set up for Epson 
MX-80 with Graftrax); up to ten (10) imbedded "Printer Control 
Commands". Compensates for a "Double Width" pitnted line. Includes 
the normal line width, margin, indent, paragraph, space, vertical skip 
lines, page length, page numbering, centering, fill, jusufjeauon, etc. 
Vie with PAT or any other editor. 

' Now supplied as a two disk set: 

Disk 01: JUST2CMD object file. 

JUST2TXTP1.9 source:FlJDl, SK'DOS - CC 

Disk 02: JUSTSC object and source in C: 

FLEX , SK'DOS . 0S9 ■ CC 

The J'I"SC and regular JUST C source are two separate piogiams. JTSC 
compiles to a version that expects TSC Word Processor type 
commands, (.pp ip ce etc.) Great for your older text files. The C 
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source compiles lot standard syntax JUST.CMD object file. Using 
JUST lynlu (,p ,u .y etc) Wilh all JUST function* plus several 
additional piinier formauing fun coon i. Reference the JUS1SC C 
source. For those wanting in excellent BUDGET PRICED word 
proaasor, wilh features none of the orders have. Thii ii ill 

Disk (I) . Pl.9 Fl£X only- F.S <k CCF ■ S49.95 
DiskSet (2) -F.Si CCF <t OS9 (C version) - 560 95 

OS-9 68K000 complete wilh Source - J 79 95 
PAT from S.E. Media • A full feature screen oriented TEXT ED'TOR with 
all the beit of "PIE 1 "". For those who swore by and loved only PIK, 
this is for you I All PIE features and much morel Too many features to 
list. And if you don't like these, change or add your own. PI. -9 source 
furnished. "C" source available soon. Easily configured to your CRT, 
with special config section. 

Regular FLEX. SK'DOS J/29 SO 

• SPECIAL INTRODUCWON OFFER « i79 95 

SPECIAL PAV.'UST COMBO tw/source) 
FLEX. SK'DOS '99.95 

OS-9 68K Version S229.00 

SPECIAL PATIJUST COMBO 68K '249.00 
Note: JUST in "C" source available for OS-9 
CEDRIC from S.E. Madia - A screen oneniad TEXT EDITOR with 

availability of MENU' aid. Macro definitions, configurable permanent 
definable MACROS' ■ all undard features and the fastest global' 
functions in ihe west A simple, automatic terminal confi g program 
makes this a teal 'no hassel' product. Only 6K in siac. leaving the 
average system over 165 sectors for text buffer • eppx. 14.000 plus of 
free memoTyl Extra fine for pragnnunin g as well as text. 

FLEX. SK'DOS '69 95 
BAS-EDIT from S.E. Media . A TSC BASIC or XBASIC screen editor. 
Appended lo BASIC or XBASIC. BAS-EDIT is transparent to normal 
BASIC/XBASIC operation. Allows aditing while in BASIC/XBASIC. 
Supports the following functions: OVERLAY, INSERT and DUP 
LINE. Makeediting BASIC/XBASIC programs SIMPLE! A GREAT 
time and effort saver. Programmers love ill NO more retyping entires 
lines, etc. Complete with over 25 different CRT terminal configuration 
overlays. 

FLEX. CCF. SK'DOS S.19.9S 
SCREDITOR 111 from Windrush Micro Systems - Powerful Screen- 

Oiiented Editor/Word Processor. Almost 50 different commands; over 
300 pages of Documentation with Tutorial. Features Multi-Column 
display and editing, "decimal align* columns (AND add them up 
automatically), multiple keystroke macros, even/odd page headers and 
footers, imbedded printer control codes, all justifications, "help* 
support, store common command series on disk, etc. Use supplied "set- 
ups", or remap the keyboard to your needs. Except for proportional 
printing, this package will DO IT ALL! 
6800 or 6809 FLEX, SK'DOS or SSB DOS. OS-9 - 1175 .00 
SPELLB "Computer Dictionary" from S.E. Media - OVER 150,000 words! 
Look up o *iord from within your Editor or Word Processor (with the 
SPII.CMD Ulilky which operates in the FLEX. SK'DOS UCS). Or 
check and update the Text after cniiy: ADD WORDS to the Dictionaty, 
"Flag" questionable words in the Text, "View a word in context" before 
changing or ignoring, etc. SPELLB first checks a "Common Word 
Dictionary", then the normal Dictionaiy. then a "Personal Word List", 
and finally, any "Special Word List" you may have speoXred. SPELLB 
alto allows Ihe use of Small Disk Storage systems. 

F.S and CCF .1129.95 



STYLO-GRAPH from Great Plains Computer Co. - A full-screen orienwd 
WORD PROCESSOR - (uses the 5 1 x 24 Display Screens on CoCo 
FLF.X/5K-DOS. or PBJ Wordpak), Full screen display and editing; 
supports the Daisy Wheel proportional printers. 
NEW PRICES 6309 CCF and CCO - S99 95, 
F.S or 0. 1179 95. U .129995 
STYLO-SPELL from Great Plains Computer Co. - Fast Computer 
Dictionaiy. Complements Stylograph. 

NEW PRICES 6809 CCF and CCO . S69.95. 
F.S or . '99.95. V . SI49 95 
STYLO-MERGE from Great Plains Computer Co. - Merge Mailing List lo 
"Form" Lcttcn, Piinl multiple Files, etc., through Styto. 
NEW PRICES 6809 CCF and CCO - 559.95, 
F.SorO- S79.95.U- J/2995 
STYLO-PAK «. Graph 1 Spell * Merge Package Deal HI 
F.SorO -V29 95.U- '549 95 
0. 68000 S695.00 

DATABASE ACCOUNTING 

XUMSTrom Westchester Applied Business Systems 
FOR 6809 FLEX-SK-lK)S(S/8") 

Uplo32 groups/fields per record! Upio 12 character filed name! Up to 1024 
byte records ! User defined screen and print control! Process litcsl Form 
files! Conditional execution! Process chaining! Upward/Downward file 
linking! File joining I Random file viitoal pagingl Built in utilities! Built 
in text line editor! Fully session oricniedl Enhanced forms! Boldface, 
Double width. Italics and Underline supported! Written in compact 
structured atsomblerl Integrated for FAST execution I 
XDMS-1V Data Management System 

XDMS-IV is a brand new approach lo data management. It not only permits 
user* to describe, enter and retrieve data, bui also to pracess entire files 
producing customized icpons, screen displays and file output. 
Processing can consist of any of a set of standard high level functions 
including record and field selection, sorting and aggregation, lookups in 
other files, special processing of record subsets, custom report 
formatting, totaling and subtotaling. and presentation of up lo three 
related filet as a "database" en user defined output icpons. 
POWERFUL COMMANDS! 

XDMS-IV combines the functionality of many popular DBMS software 
systems with a new easy louse command set into a single integrated 
package. We've included many new features and commands including a 
set of general file utilities. The processing commands are Input-Process- 
Output (IPO) oriente which allows almost instant implementation of a 
process design. 

SESSION ORIENTED! 

XDMS-IV is session oriented. Enter "XDMS" and you arc in instant 

command of all the features. No mote wailing for a command to load in 
from diskl Many commands are immediate, such as CREATE (file 
definition). UPDATE; (file editor). PURGE and DELETE (utilities). 
Others are process commands which arc used to create a user process 
which IS executed wtih a RUN cecnm and Either may be entered into a 
'process" file which is executed by an EXECUTE statement. Processes 
may execute other processes, or themselves, either conditionally or 
unconditionally. Menus and screen prompts aie easily coded, and enure 
user applications can be run without ever leaving XDMS-IV 



O-OS-1,1 -SK'DOS 

I n»\.i t - n i\ 
OCe ■ Color Cmpuur OS.* 
CCF>Cefa> Computer FIX X 




South last 'Media 

5900 Cassandra Smith %d\ . HfLxson, Tit. 37343 



" Shipping •• 

A<(H»tXSjt.(itila.U5») 
Forelin Surf«« Aid 5* 
fattier Airmail AMin 
Or CO.D. Shlpelnl Oalj 



*O.V>lntr»«Wnw»uf WkfunnM Vlmtiful. 'H HX inri I nil I.KX .n 1 mltm.rk. iJ 1 rchnkjl Nyiltrml ,m«. I u nil- ■ s K * ImS 1. ■ 1 u j>n» r ImT Su r ■ It S.,n»»t. S ? .l.nn< i„p. 

32 April '68 88 Micro Journal 



Tdepfwnc: (M 5 ) #42-4600 SOU tfl T.CIS t Medici 



Tele*: 5106006630 



OS-ft Uni'JL'EX, JL'EX, S:K''DOS 



ITS EASY TO USE! 

XDMS-IV keeps data management simple! Rather than design a complex 
DBMS which hides the l rue nature of the data, we kepi XDMS-IV (ile 
oriented. The user view of data relationships is presented in reports and 
screen output, wliile the actual data resides in easy to maintain files. 
This aspect permits customized present atson and reports without 
complex redefinition of the database files and stiucture. XDMS-IV may 
be used for a wide range of applications from simple record 
management systems (addresses, inventory ...) to integrated database 
systems (order entry, accounting.. ) 

'Ihe possibilities ale unlimited... 

KOR 6809 KLEX-SK*DOS(5/«") $249.95 

UTILITIES 

Hask09 XRcf from S.K. Media -- This Basic09 Cross Reference Utility is a 
BasicOJ Program which will produce a "pretty printed" listing with each 
tine numbered, followed by a complete cross referenced listing of all 
variables, external procedures, and line numbers called. Also includes a 
Program list Utility which outputs a fast "pectty piinled" listing with 
line numbers. Requires Basic09 or RunB. 

O dr. CCO obj only ■■ $39.95. w/ Source ■ $79.95 

DTrce Routine! • Complete set of routines to allow simple implementation 
of keyed (iles - for your programs - running under Basic09. A teal time 
saver and should be a pan of eveiy serous programmers tool -beat. 
* CCO obi. only . SS9.9S 

Lucldala PASCAL UTILITIES (JUquires Pascal ver 3) 

XREF -- produce a Cross Reference listing of any text; oriented to Pascal 
Source. 

iV'CLUDE -• Include other Files in a Sourer Text, including Binaiy - 
unlimited nesting. 

PROFILER -provides an Indented. Numbeied, "Structogram" of a Pascal 
Source Text Me: view the oveial) structure of large programs, program 
integrity, etc. Supplied in Pascal Source Code: requires compilation. 
F. S, CCF — EACH 5" ■ $4000, 8" - $5000 

DUB from S.E. Media - A UnlFl.EX BASIC decompiler Re Create a 
Source Listing from UruFLEX Compiled basic Programs. Woiks w/ 
ALL Versions of 5809 UniFLEX basic. 
U - $21995 

LOW COST PROGRAM KITS from Southeast Media Ihe following kits 
are available for FLF.X, SK'DOS on either 5" or 8" Disk. 

1. BASIC TOOL.CHEST $29.95 
BLISTER.CMD: pretty printer 
LUVEXREF.BAS: line crostrefercnccr 
REMPAC.BAS, SPCPAC BAS. COMPACBAS: 
remove supcrlluous code 

STRIP BAS: superfluous line-numbers snipper 

2. KLEX, SK«l>OS UTILITIES KIT $39.99 
CATS. CMD: alphabetically- sorted dirccloiy listing 
CATD.CMD: date-sorted dinctory listing 
COPYSORT.CMD: file copy, alphabetically 
COPYDA1T3 CMD. Tile copy, by date-order 
hlLEDATB.CMD: change file oealion date 

INFO CMD (A tNFOCMX.CMD): tells disk auiibulcs & contents 
RELINK CMD (4 Rfc"LlNK82>: re-ordeis fiagmented free chain 
RESQ.CMD: undclctea (recovers) a deleted file 
SECIORS.CMD: show scoor order in free chain 
XLCMD: super text lister 



3. ASSEMBLERS/DISASSEMBLERS UTILITIES S39.95 
LINEFEED CMD: ■modularise' disassembler output 
MATH. CMD: decimal, hex, binaiy, octal conversions 

& tables 

SKIP. CMD: column sinppcr 

4. WORD - PROCESSOR SUPPORT UTILITIES $49.95 
FUI.I-STOP.CMD: checks for capitalization 
BSTYCrr.BAS (BAQ: Stylo to dot-maiiix piinlerr 
NECPRINT.CMD: Siylo to dot manix printer filler code 

5. UTILITIES FOR INDEXING $49.95 

MENU. BAS: selects required program from list below 

INDEX. BAC: word index 

PHRASES.HAC: phrase index 

CONTENT. BAC lable of contents 

INDXSORT.BAC: fast alphabetic son routine 

FORMATTER .11 AC produces a 2-oulumn formaltcd index 

APPF.ND.BAC: append any number of files 

CHAR BIN: line reader 
1IASIC09 TOOLS consist of 21 subroutines for Basic09. 
6 were written in C Language and the remainder in assembly. 
All Ihe routines are compiled down to native midline code which 
makes them fast and compact. 

I. CFILL - fills a string with characters 
Z DPEEK - Double peek 

3. DPOKE -- Double poke 

4. FPOS - Current (ile position 

5. FSIZE -■ File size 

6. FTR1M — removes leading spaces from a suing 

7. GETPR - returns the current process ID 

8. CETOPr - gels 32 byte option section 

9. GETUSR - gels the user ID 

10. (.TIME - gets ihe lime 

I I. INSERT -- inten a siring into another 

12. LOWER - converts a string into lowercase 

13. READY - Q ice* i for available input 

14. SETI'RIOR •- changes a process priority 

15. SETUSR -changes the user ID 

16 SETOPT ■■ set 32 byle option packet 

17. STIME -sets Ihe time 

1 8. SPACE - adds spaces to a tiring 

19. SWAP - swaps any two variables 

20. SYSCALL -system call 

21 . UPPER -■ converts a string to uppercase 

For OS 9 • $44,95 - Includes Source Code 

See Review in January 1987 issue of 68 Micro Journal 

sorrooLS 

The following programs are included in object form for immediate 

application. PI/9 source code available for customization. 

READ- ME Complete instructions for initial set-up and operation. Can even 

be pnnled out with the included text processor. 
CONFIG one time system configuration. 

CHANGE changes words, characters, etc- globally to any text type file. 
CLEANTXT •onvens text I iles to standard FLEX. SK'DOS files. 
COMMON compare two text files and reports differences. 
COMPARE another check file thai reports mis-matched lines, 
CONCAT similar to FLEX . SK'DOS append but can also list files to screen. 
DOCUMENT for PL/9 source (iles. Veiy useful in examining parameter 

passing aspects of procedures. 
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ECHO echo* lo either lcrccn or fJc 

KIND in improve find command wjih "pattern" malching and wildcards. 
Vety useful. 

HEX dumps files in both hex ind ASCII. 

INCLUDE a file copy program that will accept "includes" of other disk files. 

KWIC allows routing each word, on each line to the beginning Very useful 
in a son program, etc 

LISTDIR a directory listing program. Not super, but better than CAT. 

MEMSORT a high-speed leu file sorter. Up lo 10 fields may be soned. 
Very fail. Veiy useful. 

MULTICOL width of page, number of columns may be specified, A 
MUST! 

PACE simitar to LIST but allows for a page header, page width and depth. 
Adjust for CRT screen or printer as let up by CONFIG. A very sman 
print driver. Allows printer control commands. 

REMOVE t fast file deleter. Careful, no prompts issued. Zap, and its gonel 

SCREEN a screen lining utility. Word wraps text to fit screen. Screen depih 
may be altered at run time. 

SORT a super version of MEMSORT Ascending/descending order, up to 10 
keys, case over-ride, sort on nlh word and ion on characters if file is 
small enough, sorts in RAM. If large file, sort is censliained lo size of 
your largest disk capacity. 

TPROC a small but nice text formatter. This u a complete formal ter and has 
functions not found in other formatters. 

TRANSLJT sons a file by x keyfjclds. Checks for duplications. Up lo 10 
key files may be used. 

UNROTATE used with KWIC this program reads an input Tile and unfolds 
it a line al a time. If the file has been sorted each word will be 
piesented in sequence. 

WC a word count utility. Can count wards, characters or Lines. 

NOTE: this stl or utilities consists of 6 5.1/4" disks or 2 8" disks, v>/ 
source (PL9). 3 5-1/4" disks or 1 Is" disk w/o source. 
Complete set SPECIAL INTRO PRICE: 
5-1/4- w/soorcc FLEX . SK'DOS - $129.95 
w/ojourac - S79.95 
B" w/source - $79.95 - wto source $49.95 

FULLSCREEN FORMS DISPLAY from Computer Systems Consultants 
- ISC Extended BASIC program supports any Serial Terminal wiih 
CursorControlor Mcmoiy Mapped Video Displays; substantially 
extends the capabilities of the Progiain Designer by providing a table- 
driven method of describing and using Full Screen Displays, 
f , 5 and CCF, U - 125.00, .W Source ■ SSO.00 

SOLVE from S.E. Media - OS-9 Levels I and tl only. A Symbolic Object/ 
logic Verilicalion &. Examine debugger. Including inline debugging, 
disassemble and assemble. SOLVE IS THE MOST COMPLETE 
DEBUGGER we have teen for the 6809 OS-9 seiies! SOLVE does it 
all! With a rich selection of monitor, assembler, disassembler, 
environmental, execution and other miscellaneous command s, SOLVE 
is the MOSr POWERFUL tool kit item you can own! Yei. SOLVE is 
simple to use! With complete documentation, a snap! Eveiyone who 
has ordered this package has raved] See review - 68 Micro Journal - 
December 1965. No 'blind* debugging here, full screen displays, rich 
and complete in information presented. Since review in 68 Micro 
Journal, this is our fasten mover) 

Levels I All only - 0S.9 S69.9S 



DISK UTILITIES 

OS-9 VDIsk from S.E. Media - For Level 1 only. Use the Extended 

Memory capability of your SWTPC or Gimix CPU card (or similar 
formal DAT) for FAST Program Compiles, CMD execuuon. high speed 
interprocess communications (without pipe buffers), etc - SAVE ihjl 
System Mcmoiy. Virtual Disk size is variable in JK incicOmcnls up lo 
960K_ Some Assembly Required. 

Lett! OS-9obj.S79.9S, w/ Source H49 9S 

O-F from S.E. Media - Written in BASIC09 (with Source ). includes: 

REFORMAT, a BAS1C09 Program that reformats a chosen amount of 
an OS 9 disk to FLEX. SK'DOS Formal so il can be used normally by 
FLEX, SK'DOS; and FLEX, a BASIC09 Program lhat does the actual 
read or write function lo the special O-F Transfer Disk; user-friendly 
menu driven. Read the FLEX, SK'DOS Directory, Delete FLEX, 
SK'DOS Files. Copy both directions, etc. FLEX, SK'DOS users use 
■he special disk just like any other FLEX. SK'DOS disk 
0. 6S09I6SOOO S79 9S 

LSORT from S.E. Media - A SORT/MERGE package for OS-9 (Level 1 A 
n only). Sons records wiih fixed lengths or variable lengths. Allows 
for oilier asaending or d scending son. Settling can be done in either 
ASCII sequence or alternate collating sequence Right, left or no 
justification of data fields available. LSORT incliid s a full set of 
comments and errors messages. 
OS-9 SSS.00 

H IER from S.E Media - HIER is a modtrn hitrarchal storage system for 
users under FLEX. SK'DOS II answers the needs of ihose who have 
hard disk capabililies on their systems, or many files on one disk • any 
size Using H IER i regular (any) FLEX, SK'DOS disk (8-5- 
hard disk) can have sub directories. By this method the problems of 
assigning unique names lo files is less burdensome. Different files with 
the exact same name may be on the same disk, as long as they arc in 
different directories. For the Winchester user this becomes a must. Sub- 
directories arc the modem day solution that all current large systems 
use. Each directory looks to II. EX, SK'DOS like a regular fllr. 
except they have the extension ' DIR' A full set of directory handling 
programs are included, making the operation of HIER simple and 
straightforward. A special instal. package is included lo install HIIiR lo 
yourpaitjcular version of FLEX, SK'DOS. Some assembly required. 
Install indicates each byte or reference change needed. Typically - 6 
byte changes in source (furnished) and one assembly of HIER is all ihal 
is requited. No programming required' 
FLEX SK'DOS 570.95 

COPYMULT from S.E. Media - Copy LARGE Disks to several smaller 
disks. FLEX. SK'DOS utilities allow the backup of ANY size disk lo 
any SMALLER size diskettes (Hard Disk to floppies, 8" lo 5". etc) by 
ninply inserting diskettes as requested by COPYMULT. No fooling 
wiih directory deletions, etc. COPYMULT.CMD understands normal 
"copy* syntax and keeps up with Tiles enpied by maintaining directories 
for both host and receiving disk system. Also includes BACKUP.CMD 
lo download any size "random" type file; RESTOKE.CMD to 
restructure copied "random" files for copying, or recopying back to the 
host system; and FREELINK.CMD as a "bonus" utility thai "relinks" 
the free chain of floppy or hard disk, eliminating fragmentation. 

Completely documented Assembly language Source files included ALL 4 
Programs (FLEX. SK'DOS, 8~ or S") $99 SO 



O - OS.», S . SK'DOS 

r • nxx, u . (jBiFttx 
CC1 • Goto tkanfti 0«-» 

CCF • Cotar Coo>»i«l»r 1TXX 




South Tost 'Media 

5900 CassatufraSmitk ft*. • 7fi\son. Tn. 3 7343 




■MstafCflfl 



" Shipping •• 

Aid 1% UiA. tmls. UU) 
Fontc-i Surttn A««3« 
SW«laa AlmwU A« 1*« 
Or C.O.D. Sb latins Only 
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Tefepftone: (615)842-4600 Soiitft ( E(XSt tMedid 



Teton: 5106006630 



OS-9, ■Utii'JLTX 'JL'EX, SXtyOS 



COPYCAT from LuddaU •• Pascal NOT required. Allows ie«ding TSC 
Mini-FLEX. SK'DOS, SSB DOS68. and Digital Rcseaich CP/M Disks 
while operating under SK'DOS . FUsXLO. FLEX 2.O. or I'lJiX 9.0 
with 6800 or 6809 Systems. COPYCAT will noi perform miracles, bui, 
between Ihc program and the manual, you stand a good chance of 
accomplishing a transfer. Also includes some Utilities to help out. 
Programs supplied in Modular Source Code (Assembly Language) lo 
help solve unusual problems. 

F, S and CCF 5" - $5000 F.S 8 -$65.00 

VIRTUAL TERMINAL from S.E. Media - Allows otic terminal to do the 
work of scveia]. The user may sun as many as eight task on one 
terminal, under VIRTUAL TERMINAL and switch back and fonli 
between task at will. No need loexil each one; just jump back and forth. 
Complete wilh conf guralion piogram. The best way lo keep up with 
those background programs. 

O & CCO - obj. only - S4» .9$ 

FLEX, SK'OOS DISK UTILITIES from Computer Systems Consultants - 
Eight (8) different Assembly Language (w/ Source Code) FLEX, 
SK*DOS Utilities for every FLEX, SK»!X)S Users Toolbox: Copy a 
File with CRC Errors: Test Disk for errors; Compare two Disks; a fast 
Disk Backup Program; Edit Disk Sectors; Linearize Free Chain on the 
Disk; print Disk Identification; and Son and Replace Lite Disk Directory 
(ill sorted order). -- PLUS -- Ten XBAS1C Programs including: A 
BASIC Resequences with EXTRAS over "RENUM" like check for 
missing label definitions, processes Disk lo Disk instead of in Memory, 
etc. Other programs Compare. Merge, or Generate Updates between 
two BASIC Programs, check BASIC Sequence Numbers, compare two 
unscquenced files, and 5 Programs for establishing a Mailer Direcloiy 
of several Disks, and sorting, selecting, updating, and printing paginated 
listings of these files. A BASIC CrossReference Program, wr lien in 
Assembly Language, which provides an X-Ref listing of Ihc Variables 
and Reserved Words in ISC BASIC. XBASIC. and PRECOMPILER 
BASIC Programs. 

ALL Utilities include Soured (either BASIC or AL Source Code) 
F. Sand CCF .$50.00 
BASIC Utilities ONLY for UniFLEX - S30D0 

MISCELLANEOUS 

TABULA RASA SPREADSHEET from Computer Systems Consultants ■- 
TABULA RASA is similar to DESKTOP/PLAN; provides use of 
tabular computation schemes used for analysis of business, sales, and 
economic conditions. Menu-driven; extensive report-generation 
capabilities. Requires 1"SCs Extended BASIC. 

F, S and CCF. U - $5000. wl Source ■ $10000 

DYN ACALC -- Electronic Spread Sheet for the 6809 and 68000. 
F. S. OS-9 and SPECIAL CCF $70000. U - $395 00 
OS-9 68K . $595 00 

FULL SCREEN INVENTORY/MRP fiom Computer Systems Consultants 
■■ Use the Full Screen Inventoiy SystcmVMatciials Requirement 
Planning for maintaining inventories. Keeps item field file in 
alphabetical order for easier inquiiy. Locale and/or print records 
matching partial or complete item, desctiplion, vendor, or attributes; 
find backorder or below stock levels. Print-outs in item or vendor 
oider. MRP capability for the maintenance and analysis of Hierarchical 
assemblies of items in the inventory Tile. Requires TSCs Extended 
BASIC 

F. S and CCF, U ■ $50.00. wt Source - $100.00 



FULLSCREEN MAILING LIST from Computer Systems Consultants ■■ 
The Full Screen Mailing List System provides a means of maintaining 
simple mailing lists, l-ocatc all records matching on partial or complete 
name, city, slate, zip, or attributes for Listings or Ijibcls, etc. Requires 
ISC's Extended BASIC 

F. S and CCF. U - $5000. wl Source - SI00O0 

DIET-TRAC Foiccasler from S.E. Media -- An XBASIC program that plans 
a diet in terms of cither calories and percentage of carbohydrates, 
proteins and fats (C P G%) or grams of Caibohydrale. Protein and Fal 
food exchanges of each of the six basic food groups (vegetable, bread, 
meat, skim milk, fruit and fal) for a specific individual. Sex, Age, 
Height. Present Weight, Frame Size. Activity Level and Basal 
Metabolic Rale for normal individual arc taken into account. Ideal 
weight and sustaining calories for any weight of the above individual 
are calculated. Provides number of days and daily calendar after weight 
goal and caloric plan is determined. 
F. S $59 95. U $S9 95 



GAMES 

RAPIER - 6809 Chess Program from S.E. Media -- Requires FLEX. 

SK'DOS and Displays on Any Type Terminal. Features: Four levels of 
play. Swap side. Point scoiing system. Two display boards. Change 
skill level. Solve Checkmate problems in 1-2-3-4 moves. Make move 
and swap sides. Play while or black. This Is one of the strongest 
CHESS programs running on any microcomputer, estimated USCF 
Rating 1600+ (belter than mast 'club' players at higher levels) 
F. S and CCF . $79.95 



A»ill>bllltj Litesdi 
O - OS», S . SX'DOS 
r-FLeXU- Uo.in.KX 
QCa _ Color Com pulir OS-9 
CCV • Color CompuUr KLEX 




South 'East Media 

5900 Cassandra Smith 9J- ■ 9fv(Son. Tn. )7i4i 




master t iti 



" Shipping ** 

Add 1* US.*, Wn.il. SO) 
Foreign Nu^kt Add 5% 
Fbrelw Airmail Add 10* 
Or CO.D.ShlpplnftOnr; 



t M - m ■ -1> ■ d. mjf. ol M k i »■» n» no- yintortflo ■ •>T- 1: X .nd LWLKX art Tr»dOT«rki .r Taclmkal SyiltM Conjultoau-'SK' DOS li > Tratfwra of Star-KSotiwt s» « tm. r.,r P . 
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COMPLETING THE FLOW-TABLE 

There are altogether five controls, two prlmaiy controls (XL and X2). and three secondary controls, 
which we 11 call Yl. Y2 and Y3 - that is 

16 8 4 2 1 
xi .X2.yl.y2.y3 

We observe that the binary values 16 and 8 have been forced on XI and X2. which allows us to 
head the columns of the flow-table with the appropriate red decimal numbers, after which It becomes 
a simple matter to complete all Box-Bs of the flow-table (in red) with the sum of each one's coordi- 
nates. 

THE PRELIMINARY DECODING-TABLE 





O 


I 


2 


3 


t 


S 


6 


7 


8 


*=r 


JO 


II 


12 


13 


itt 


IS 


\t> 


n 


18 


'1 


ai 


aa 


as 


T. 




1 


I 






1 


1 












I 


1 


1 


1 










l 


l 


l 


*fa 






1 


1 






1 


1 






1 


1 




t 




1 


1 




I 






I 


I 


^3 




I 




I 




I 




t 


1 


i 








I 




I 




\ 




I 


[ 


I 


l 
I 


Li 






* 




t 




I 












1 




1 














i 


La 








I 








i> 






I 


I 












i 




i 






L3 




# 








I 
















I 




1 










I 







Diagram 28 

As before, the next step of the procedure is to construct a table setting out In numerical order the 
Box-Bs of the the flow-table which contain a red decimal number. Note that mlnlemis 20 and all 
those higher than 23 do not appear - they are phi-states. Then we tabulate the Is for the Y eneigisa- 
tions, and the Is and phis for the L outputs. 

DECODING THE FLOW-TABLE 

Then begins the task of decoding the decimal mlnterm numbers in order to arrive at a minimal set 
of prime Impllcants for each device. We'll commence with the decoding for Yl. 
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You'll notice that this decoding layout is slightly difrerent from previous decoding-tables, in that it 
has a column to the right headed with a phi. We'll discuss this feature at the appropriate time! The 
first 2 rows decode quite normally (remember that only 20. and 24 and up are phis), but when we 
come to row 3. commencing on minteim-12. and ask "Is 12 + 16 = 28 available?" the answer is YES. 
but it's a phi-minterm. So we make a note in the phi-column to the right that we've made use of 28. 
"Is 12 - 8 = 4 available? No!" Similarly with 12-4 = 8. and so we come to 12 + 2 = 14 (which IS avail- 
able) and also 28 + 2 = 30 is available, because It's a phi. We therefore put a 2 under mlnterm- 14 and 
add 30 to our phi-column. NOT FORGETTING TO CHANGE THE IN COLUMN y2 TO A PHI. If you 
overlook any part of this procedure. YOUR CIRCUIT IS NOT GOING TO WORK PROPERLY. Similarly 
for 12 + 1 = 13. 

Now. in row 4 of the decoding-table, commencing on mlnteim-21, we proceed normally (as we did 
in the previous row) until we come to 2 1 + 2 = 23. which IS available. We find that we can add 2 to 
each of the other mlnterm-numbers. except for mlnteim-5. Unlike our earlier, simpler procedure, we'll 
not put a tick yet at the right-hand edge of our decoding-table. First we'll try to transfer our "base- 
minterm" (that is. our 'x') to another minterm-number. Very often this works out OK! We can transfer 
provided our new base-minterm fulfills ALL of the following conditions : 

1. It MUST be a "blocking" minterm in the row being decoded. 

2. The new base must NOr be covered by any previous untlcked decodlng-row. That Is. it must 
not be covered by an ESSENTIAL prime lmplicant. 

3. It must not "go with" any non-phi variable in the decoding of this row to this point. 

Applying condition 1 first, we've only come across one blocking-minterm so far and that is mln- 
term-5. but it falls on the other 2 counts. That is. It's already covered by row 1, and It also "goes with" 
the non-phi variable yl. which produces 5 - 4 = l. which IS available. That is. seeing as we're blocked 
in our attempt to change y2 into a phi. we're forbidden to change a column already tested which 
"failed" the test, and unfortunately, y 1 has already been tested and failed with our original base. 

Under the circumstances, we can't find a new base to which to transfer, so we're now free to put 
our tick to the right to indicate an ordinary, non-essential prlme-impllcant. and proceed with the 
decoding of the remainder of the variable-columns. In the first 3 rows we completed all our runs 
without coming up against a block, so these three will be ESSENTIAL to our decoding, whereas we 
may. or may not. need the non-essential rows. 

The same kind of situation crops up in row 5. with minterm-6 being ruled out as a new base for 
reasons similar to those which eliminated minterm-5 in row 4. 

Row 6 decodes normally, with no problems, and becomes our fourth essential prime lmplicant. 
Examination of the decoding-table shows that the four unticked rows between them cover all the 
minterms. therefore rows 4 and 5 are redundant and are not incorporated into our Boolean expression 
for Yl. which is 



Yl = XI ' .X2' .y2' -y3 + XI ■ . X2 ' . y2 . y3 ' + X2.yl + XI. yl 
= XI" .X2 ' . (y2* .y3 + y2 . y3 ' ) + yl . (XI + X2) 



NOW FOR Y2'S DECODING 
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This one Is a little trickier than any we've come across so far. so let's take it gradually. Row l 
commences on mlnterm-2. 2 + 16 = 18 Is valid, as Is 2 + 8 = 10 and 18 + 8 = 24. However, when we 
come to the yl variable, we find that everything "goes* except mlnteim- 10. Normally this would mean 
placing a tick to the right. BUT if we transfer our base to mlnterm-10 (which meets ALL the conditions 
for transfer) there's a possibility that we may be able to convert this prime-impllcant into an essential 
one. We Indicate our new base by putting a stroke through the *8" below mlnterm- 10. Proceeding with 
our decoding. 10 - 2 = 8 Is not available, but 10 + 1 = 1 1 is However, we are blocked by mlntemi-18, 
and as both mlnterms 18 and 26 are ruled out as possibilities for a new base we're compelled to put a 
tick to the right after all. Almost made it. but not quite!! Now for another point to observe - - we'll put 
a dot over the variable for which we start a run but we're unable to complete. In this case y3. 

Rows 2, 3 and 6 turn out to be similar to row l, except that no transfers are possible. Rows 4 and 
5 are the only two which prove to be essential prlme-implicants. At this stage, with a more primitive 
method of decoding, we'd consider our decoding to be complete because every mlnterm Is now covered 
by a decoding row. 

Normally, the procedure In larger tables of this sort Is to place a small tick or dot above every 
mlnterm covered by ESSENTIAL prime-impllcants. and then to look for remaining mlnterms which arc 
covered by only one row. For example, mlnteim-3 is covered only by row 2. so we'd have to select row 
2 as one of our prime-impUcants. The selection of this row also covers mlnterms 7. 11 and 15, which 
must also have a tick placed over them. Mlnteim-6 is covered by row 3 alone, so we MUST select this 
prlme-lmpllcant too. which adds mlnterm-2 to the list of ticked mlnterms. And so on. until we end up 
by keeping every prime lmplicant In the decoding, consisting of two essential prime- Impllcants and 
four non-essential ones of three literals apiece. 

AUXILIARY DECODING ROWS 

In our relined decoding system, however, we'll not be content with such a laige number of non- 
essentials, so we'll draw a heavy line across the bottom of our table, and try for auxiliary decodlngs to 
see if there are better alternatives. First then, we'll lick all mlnterms covered by ESSENTIAL prime- 
impllcants. and begin again with the lowest unllcked mlnterm. which happens to be mlntemi-2. 

This compares with our original row 1. which also used mlnterm-2 as Its base, but whose satisfac- 
tory decoding was blocked by y3 (dotted). Our technique In this second round of decoding will be to 
convert y3 to a phi iirst. by asking "Is 2 + 1 = 3 available?" It Is. so we place a 1 under minterm-3, and 
convert y3 to a phi. Now we go back to the normal order of decoding and ask "is 2 + 16 = 18 avail- 
able?" It is. but 3 + 16 = 19 isn't, so we transfer to mlnterm-3 as our base, because mlntemi-3 is NOT 
covered by a previous ESSENTIAL prtme-implicant. Proceeding with the decoding, we cover mlnterms 
10 and 1 1. but find ourselves blocked by yl when we come to add 4 to each of the mlnterms already 
covered In this row. There Is no other mlnterm to which we can transfer, so we place a dot over the 
blocking variable yl. and cany on with variable y2. 2 does not go. so this is the end of this rows 
decoding. 

If it were possible to transfer a second time, we would indicate this by changing our original "slash" 
(marking mlnterm-3) into an X". and "slashing" our newer base-mlntemi. 

We move on to the next lowest unticked mlnteim. namely minterm-6. and decode in similar fash- 
ion. On completion of this row. we find that all mlnterms are now covered with ONLY TWO NON- 
ESSENTIAL PRIME- IMPLICANrS OF THREE LITERALS APIECE, instead of the earlier four such prlme- 
Impllcants. 

The final selection of prlme-implicants for our decoding is Indicated by ticks to the left of the 
decoding-rows. which gives a Boolean expression for Y2 of 

Y2 - X2.yl.y3 + XI. y3 ' + Xl'.yl'.y2 + X2'.yl.y2 
- X2.yl.y3 + XI. y3 ' + y2(Xl*.yl' + X2'.yl> 

We've now covered all aspects of the decoding-system. It's a little more complicated than the 
simpler, basic system we commenced with. but. as you see. It DOES result In a simpler network, 
though this will not always be the case, as it sometimes happens that the first decoding was the better 
afler all. But at least we now have a choice In the matter! 
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NOW FOR Y3'S DECODING 
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Diagram 3i 

Diagram 31 sets out the decoding for Y3. and presents no special problems. Note that In row 1 we 
transfer to mlnteitn-9 as our base when we find ourselves blocked by y2, only to find ourselves finally 
blocked by y3. The other four rows decode quite naturally (all of them turning out to be essential) 
AND ALSO COVERALL THE MINTERMS. so that row 1 becomes unnecessary after all. Y3's expres- 
sion Is therefore 

Y3 - X2' .y3 + X2.yl'.y2' + yl.y3 + Xl.yl.y2 
from which we may factor out either yl or y3 to give a condensed expression. 

This disposes of the relay control-functions, leaving only the networks for the lights to decode, so 
here goes. 



FINALLY THE DECODING FOR THE LIGHTS 
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Dtagram 32 

Li's decoding, too. is quite noimal. except for one small point, and that Is when we come to the y 1 
variable In row l. 6 - 4 = 2 IS available to us. but not one of the other mlnterms will "go". In spite of 
this we do not try to transfer, neither do we place a dot over the yl variable BECAUSE MINTERM-2 fS 
A PHI. AND WE ARE NOT COMPELLED TO CONSIDER IT IF WE DONT WISH TO DO SO. In this 
Instance, we elect to consider it as a 0. and we can therefore say that 6 - 4 = 2 is NOr available, and 
proceed with the rest of the row. THe final expression for L 1 is 

Ll - yl .y3' + Xl.yl.y2 
- yl <y3' + XI. y2) 
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This Is a very straightforward decoding, apart from a repeal of the situation above in row 1 . Vari- 
able yl gives 3 + 4 = 7 as a possible run. bul as none of the other mfntemis will go. and mintemi-7 is 
a phi. we choose lo ignore It. thus making row l end up as an essential prime-lmplicanl. The com- 
plete decoding for L2 gives 

L2 - yl'.y2.y3 + X2.yl'.y2 + Xl.yl'.y3 
- yl'(y2.y3 + X2.y2 + XI. y3) 
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Here again, in L3's decoding, we find y 1 commencing a run with a phi. ie 5 - 4 = 1. but none of the 
other covered minterms will go. so we elect to disregard il and cany on lo make Ihe row an essential 
prtme-implicanl. The final decoding for L3 is 

L3 - yl.y2 ' .y3 + X2.yl.y3 
- yl.y3 (y2' + X2) 

ALL DONE! LET'S SEE WHAT OUR CIRCUIT LOOKS LIKE! 

The complete network is shown below, with each output being kept separate, although some 
further economies would be possible If certain contacts common lo two or more individual networks 
were combined. We shall learn how lo produce multiple-output networks later on in this series. 
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Isn't that a complex piece of circuitry? Who'd have thought Just a short while ago that a bunch of 
amateurs could design something like that? Of course. If one of us had decided on a dllferenl binary 
sequence for Gray-coding the stale-diagram. (s)he'd end up with a completely different, but neverthe- 
less functionally equivalent circuit! To really give it our best shot, however, we should also try decod- 
ing the zeroes (or non-available mlnterms) for each controlled device, and then complemenling the 
resultant Boolean expression. We could then select the belter network for each individual device, but 
that's Just TOO much work right now. 

This completes the basic procedure for the synthesis od sequential control circuits, but don't 
conclude from this that we've learned pretty well all there is to know. We've still barely covered a 
quarter of ourjourney. so next we're going to take an in-depth look at MERGING and GRAY-CODING, 
so that we'll better understand the processes we'll be using so often in circuits of this type. 

SOME IDLE CHIT-CHAT 

Those of you who work with PLAs (Programmable Logic Arrays) which are programmed with a 
"Ladder" language, or even directly with Boolean expressions, should be able to make good use of what 
we've learned so far. especially the minimisation techniques. For the benellt of the uninitiated, a 
"ladder" language Is based on our "ladder-like" network, and uses the symbols for NO and NC contacts 
for programming purposes. 

Maybe some of you would be interested in writing a program to enable us to implemenl the design 
process on our computers, and thus eliminate the possibility of human error during the Gray-coding 
or decoding process. Just imagine, our very own CAE (Computer Aided Engineering) system!! Wow! 
I'd be MOST interested to know if you do any work done in this direction!! 

Anyway, you've all worked so hard to keep up with me so far that I'm going to give you yet another 
test-free month. Unless, of course, any of you object to this!! Anyone here who's willing to risk the 
wrath of the rest of the party and INSIST on a test of some kind? No? I thought not ... so you can 
take lime out to explore around for a while. It's even safe to go back to M'bul-yan territory now that 
we know how to 'discombobulate' old 1-asku!!! See you back here next month. 

...End of Mile 8 

EOF 
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THE WORD Processor 

King James and New International Versions 



The following is a icview or a product 
thai was a foiraidablc effort on the pait 
of it's programmers-Ben Brown and 
Kent Ochcl. It's an application, while 
selective and broad in scope, is very 
sophisticated in the manner in which it 
performs. And, as the vast array of other 
available applications arc indispensable 
to certain users, such as word-proces- 
sors, spread-sheet progiams, account- 
ing. CAD-CAM. etc., this program is 
one of the most, if not, next to the Bible, 
the most valuable toot any student of the 
Bible, who uses a pcisonal computer, 
could own. 

The Word processor allows the user to 
locate or work with any size of data 
block according to prc-sct conditions 
(user defined). The user can search for 
any woid, phrase, set of words, begin- 
ning, ending, or inside of other blocks, 
of the entire Bible, from Genesis to 
Revelation. All this at speeds that will 
astonish even the user of one of the 
faster spread-sheet applications. A 
search fiom one end to the other (Gene- 
sis to Revelation) for a single word can 
be accomplished in several seconds. 
Remember, the Bible contains over 
3 1,000 verses or about 4. S million char- 
acters. 

When run on the Macintosh II (a 68020, 
16MHz machine), it seems to be practi- 
cally instantaneous! On the Macintosh 
Plus it is still vciy fast. For instance, I ran 




it on the word "word" (Macintosh II) 
from Genesis to Revelation. There is 
673 occurrences of "word" in the Bible, 
it found all 673. created an index of 
them, complete with each verse ready to 
be scrolled on the screen, with it's 
complete text, and saved to disk in less 
than a minute and a half! I then had it 
search for the word "atomic" which is 
not in the Bible, it came back instantly 
and infoimcd me that it was not in the 
Bible. A search for the word "Rever- 
end", which only appcais once, look 
about 3 seconds on a Macintosh Plus, 
and the Plus is about four to five times 
slower than the II. This speed is in part 
due to a companion application that can 
be ordered as a separate package. Instant 
Access, which is keyed to every word in 
the Bible. Without Instant Access the 
search would have been somewhat 
slower, but not a lot. However, for it's 
low price, I would recommend that the 
user also consider Instant Access when 
ordering The Word processor. 

One of it's most valuable features is the 
ability to create selective indexes of 
selected words, phrases, vciscs or any 
subset of them. 



Products 

Application 

The Word processor 

KJV -NIV 

Greek Translitcrator 

Hebrew 

Topics 

People 

Instant Access 

Personal Commentary 

ASCii Utility 



Svstcm 

MAC. IBM 
Apple, C64 
Mac. IBM. 
MAC, IBM 
All Listed 
All Listed 
MAC, IBM 
MAC, IBM 
MAC, IBM, 



A hard disk is strongly recommended as 
the entire Bible with the support pro- 
grams will demand practically over 5 
megabytes of storage. While diskette 
use is slower, for many sessions diskette 
use is acceptable. However, the user 
should be aware of the disk swapping 
required. 

This review will be based on the Macin- 
tosh version. The following Macintosh 
functions are supported: Switcher, text 
files created in most all the Macintosh 
word processors using the Cut, Copy or 
Paste functions. The ASCii program can 
redirect output that would normally go 
to a printer to a disk iile (not received or 
reviewed and no icpons.) Windows arc 
fully supported (no expansion click box, 
which would have been useful on the 
Macintosh II or any other wide or larger 
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screen Macintosh.) The mouse, menus 
and editing functions arc supported. The 
Macintosh interface is supported to the 
cxtcntihaiany Macintosh user can work 
within the programs without a lot of 
documentation research. 

Ihc Word processor is the "home -base" 
program. The Creek and Hebrew trans- 
litcraiors. Instant Access. Personal 
Commentary. People and Topics arc 
imbedded in the basic The Word proces- 
sor and become an integral part of The 
Word processor thereafter (for those 
with limited mcmory-5 12K, the transit t- 
crators may be installed or removed as 
the users desires.) 

As mentioned before The Word proces- 
sor can directly access any word, group 
of words, etc., in the entire Bible. Per- 
manent concordances of any subject is 
supported. All Bible text relating to any 
subject referenced can be printed, with 
lite "Red Letter" words of the New 
Testament indicated by <...> delimiters. 
Functions of the Main Menus arc as 
follows: Display Help Instructions, Set 
Options. Create Indexes or work with 
previously created indexes, print com- 
ments, and several other features to be 
referenced below. 

A dialog box asks for ihc range of text 
you arc interested in. This comes up in 
the preset option which is permanently 
saved, but can be changed for any par- 
ticular session, or saved as a new pcrma- 
ncntoption . The range can be in the form 
of book to book, book and verse to book 
and verse, or any combination of cither. 
Once the subjcct(s) you indicated arc 
located they may be viewed and scrol led 
as desired, in cither the forward or back- 
ward direction. 

The Edit menu has all the standard 
Macintosh functions such as. Undo, 
Cut, Copy, Pasie. Clear, Select All, 
Options.. .which allows the user to set a 
standard set-up and Change Mode to 
SRN (provided you have installed the 
translitcraiois.) 

The Indexes menu allows, Open an ex- 
isting Index, New Index. Delete an ex- 
isting Index, Combine Indexes and 
Build an Index. 



The Search function allows Find Text, 
Find SRNs, Co To, Co 10 Beginning of 
Range, Find Again, Co to End of Range. 
A total of 32 references may be entered 
for each search or find. Rules for search- 
ing arc very comprehensive. Preceding 
the referenced with the "=" sign finds all 
references that end with ihc reference. 
References that have the "=" sign after 
the word indicate the reference is a pre- 
fix, cxamplc-word=, finds word and 
words, as well as any other whole word 
stalling with "word". Typing "= word=" 
will find all words containing "word". 
Items displayed or found by the building 
of an Index may be sorted to Biblical 
sequence, with duplicate references 
removed. Index references may be indi- 
vidually inserted, skipped, all inserted, 
or selectively removed, as desired. The 
Build Index is a faster way to create a 
new index than the New Index function, 
bypassing the selective options indi- 
cated above. 

Ihc Comment menu is active if you 
have installed the Commentary option. 
The Translitcrator menu allows the fol- 
lowing: Display SRN Scripture, English 
Word Frequency, Translitciaied Word 
Frequency and Display Dictionary. 
The results of menu functions can be 
merged into any existing index as the 
user desires. 

The Greek and Hebrew 
Transliterators 

These programs, when installed with the 
KJV, key with Strong's reference num- 
bers (SRN.) Some Creek and Hebrew 
words do not directly translate across 
ihc languages. Many have been trans- 
lated into ihc same English word. The 
Creek and Hebrew dictionaries contain 
the English definitions, the Cicck or 
Hebrew transliteration, word origin and 
derivations. Also the user can find dif- 
ferent English translations of Cieek or 
Hebrew words and find the different 
words translated to the same English 
word. The Word Frequency function 
allows for this and displays ihc SRN 
number, the frequency of the word in 
question and the total number of occur- 
rences. Strong's reference numbers are 
not available for the NIV. Ihc Hebrew 
tiansliicrator works ihc same as the 



Creek version, but for the Old Testa- 
ment with Hebrew reference numbers 
and a Hebrew dictionary. 
The Display Dictionary function dis- 
plays Ihc SRN, Ihc word associated with 
the SRN. derivation and definition. 
Indexes of Creek word contents can be 
created, and saved in the same format as 
regular indexes. By this process indexes 
can be merged or made interchangeable. 
These programs allow the average stu- 
dent to use ihcm without any special 
knowledge of cither language. 

Hcictoforc this type of reference work 
has been limited to extensive study and 
training on the part of the user. Now 
anyone can immediately study word 
usage in cither language. A student of 
the Bible can refer to ihc original Creek 
for reference in the New Testament and 
the Hebrew for ihc Old Testament with 
confidence in these research tools. 

Documentation is sufficient, but not 
overbearing. I found that within an hour 
or so I was able to use the programs 
without having to go to the books often. 
In addition, if disk space allows, a very 
comprehensive Help reference is avail- 
able under the Apple menu. With Help 
installed. I put the books away. 
The ASCii Utility 



The ASCii Utility is a S49 optional 
program that allows The WORD proc- 
essor files to be printed to disk in ASCii 
form. They may then be opened, read, 
modified, and printed by most word 
processors including Mac Write. To sec 
ihc value of this utility, ihc handling of 
files without it should be understood. 

Ihc WORD processor uses its own 
printer driver rather than the standard 
Apple printer drivers. Most windows 
have a Write box that, when clicked, 
causes ihc active window to be printed 
to any Apple Image WriterorLascrPrin- 
tcr compatible printer. Alternately, 
Print Selection from ihc File menu can 
be used 10 print whatever text has been 
selected. Printing on the image writer is 
extremely fast since the printers internal 
fonts arc used in a "draft'' mode. In my 
MacPlus system, the primer begins in 
about 2 seconds and a full screen of text 
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is primed within 10 seconds. The 
single — spaced output is quite legible, 
though not vciy dense. This anange- 
ment is so fast thai printing windows or 
selected text as you study (rather than 
waiting until you finish) is entirely prac- 
tical and hardly interrupts your train of 
thought 

This printing arrangement is entirely 
satisfactory for study. A way is needed, 
however, to use output from The 
WORD processor with other applica- 
tions such as desktop publishing and 
word processing piograms. The normal 
Macintosh Copy function is helpful but 
it only works with selected windows. 
For example, you can copy a selection 
of text to the clipboard but you cannot 
copy the contents of an English Lan- 
guage Frequency window to the clip- 
board. Since the normal printer driver 
arrangement is not used, programs like 
GLUE cannot be used to capture 
WORD processor images. 

You understand then, that the ASCii 
Utility is absolutely essential to any 
serious user of the WORD processor. 
When this utility is installed. Write Op- 
tions from the File menu allows you to 
add the selected material to an existing 
ASCii file, open a new file, or "write" to 
the printer. Creation of ASCii files is 
reasonable fast. Transferring a 21 K 
index into a ASCii file took about 55 
seconds on my system. The resulting 
file can be read by Mac Write and any 
application that understands MacWritc 
files. 

The Topics Product 

The WORD processor's ability to 
create custom indexes is one of its more 
powerful features. Often, however, the 
subject you're interested in will be a 
common one which is of interest to 
many Bible scholars. If this is the case 
with you, you will find the topics index 
(a $49 option) an invaluable aid. This 
index contains over 200 topics from 
"adultery" to "zeal." 



This index is not merely a list of 
verses containing a specific word, but 
rather those verses that deal with the 
selected topic. Obviously this required 
a great judgement on the part of those 
that prepared the index and you may not 
always agree with their conclusions. 
For example, whether you accept that 
Uk 32 references given under "Baptism 
of the Holy Spirit" really relate to that 
topic will depend on what you think the 
baptism of the Holy Spirit really is. 

The People Product 

The People Product is a collection of 
indexes that cross reference over 140 
people mentioned most often in the 
Bible. From "Aaron" to "Zcrubbabel." 
this S49 option provides a useful tool to 
help the user better get to know famous 
characters of the Old and New Testa- 
ments. Like the Topics Product, these 
indexes arc based on context, not use of 
the person's name. Thcrcfoie, verses 
about a character which do not specifi- 
cally mention the character's name arc 
included. These indexes arc not just a 
sampling of passages, but arc quite com- 
prehensive. Forexamplc.588 verses are 
listed for the Apostle Paul and 71 are 
listed for Mary, the mother of Jesus. 

The Topics and People indexes arc 
made far more useful by the powerful 
integration of features in The WORD 
processor. For example, the first screen 
displayed when you open an index lists 
all the versesielatcd to the selected topic 
or person. Double click the number of 
any verse and the text of that verse is 
displayed. Type COMMAND + 'D' 
and instantly see all Strongs Reference 
numbers associated with that verse. 
Double click any listed reference num- 
ber and instantly the original Greek or 
Hebrew word and its meaning is pre- 
sented (provided you have the optional 
transliterations). This brief description 
does not even scratch the surface of the 
power and flexibility of the WORD 
processor's handling of indexes. 



Conclusion 

While this particular set of programs 
may be of limited interest to some read - 
crs. it is without doubt, one of the most 
exhaustive and complete software pack- 
ages I have ever tested or used! We have 
in our Macintosh library hundreds of 
titles, ranging from those that arc utterly 
useless to those that we cannot do with- 
out. If you arc astudentofthe Bible. Old 
or New Testament, then this software is 
a must! / cannot recommend it loo 
highly. 

You can secure additional information 
from the vendors below, or call or write 
S.E. Media (sec advertising this issue) to 
order direct: 

Bible Research System!! 

2013 Wells Brunch Parkway #304 

Austin, Texas 7872ft 

(512)251-7541 

A staff review. 

KOK 
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A Tutorial Series 



By: R. D. Lurie 
9 Linda Street 
Leominister, MA 01543 



WRITING AND DEBUGGING A FORTH PROGRAM 



In a recent letter, Wilson Federici suggested 
that I try to show how one goes about writing and 
debugging a FORTH program. I thought that he 
had a good Idea, and that I would tiy to follow his 
suggestion; particularly since I have never seen 
but one other attempt to do that. Actually. It easier 
to write a program and debug it than it is to show 
how it was done, but I will give it a tiy. 

In my last column, I discussed how I had 
written a set of definitions which would allow a 
FORTH application to call a ROM routine, which, 
in tum, would call the SWTP CALC-1 math board. 
I promised to show how to use it in a specliic 
application, along with an easy way to call for a 
long list of input data. I decided to present both of 
those objectives and show how I went about 
writing and debugging the definitions, all in this 
column. 

At the same lime. I may answer some of your 
other questions, such as why I Jump around with 
screen numbers, so that they do not always fall 
Into an obvious sequence. 

GETTING STARTED 

The answer to that question is that I usually 
start a development project with a fresh disk. By 
assigning a whole disk to one application, I don't 
have to wony about accldently overwriting a 
screen which I want to save. Since I have SSDD 80- 
track drives. I have 355 screens, or 363 ,520 bytes, 
of virtual memoiy to play around in! I use screen 
#0 as a crude table of contents to keep track of 
where major segments of the program are stored, 
and I combine these blocks, once I think that I 
have a reasonably functional program written. 

I have no problem loading these scattered 
groups of screens whenever I want to test the 
current state of the program, because I use a 



loading screen to call all of the screens in the proper 
sequence. By using a loadtng screen, instead of — 
> to call the next screen, I can skip around during 
loading, and, of course. FORrH couldn't care less 
the order in which it reads a disk. 

I will have to make a few assumptions durtng 
this presentation in order not to waste a lot of space. 
I will assume that you have a copy of my previous 
column, so I will Just refer to those screens without 
reprinting them here. I will also assume that I can 
refer to a definition, such as X><M . without giving 
more than a passing reference to its meaning. I 
really don't expect that you will have any trouble 
following me. 

CALCULATING 
THE STANDARD DEVIATION 

I am sure that all of you have heard the words 
"standard deviation." but not all of you will know 
what it means. In a somewhat simplistic manner, I 
will tiy to describe its meaning and how it is 
calculated, hopefully without offending any mathe- 
maticians who might read this. 

The standard deviation is the probable range, or 
limits, within which two-thirds of a group of num- 
bers will fall. These numbers are centered around 
the mean, so that one-third of the numbers will 
probably be less than the mean, but not less than 
the lower limit, and one-third of the numbers will 
probably be greater than the mean, but not more 
than the upper limit. The mean value is found by 
taking the sum of all of the numbers within a group 
and dividing that sum by the count of the numbers 
which went into that group; this is the result which 
most of us have come to call the "average" of the set 
of numbers. 
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Since the standard deviation which we will 
calculate represents only the probability, and not 
the hard fact of a situation, it is commonly referred 
to as slgma. which is the square root of the differ- 
ence between the square of the mean of the num- 
bers and the mean of the numbers, squared. This 
may be a Uttle more clear If I use a pseudo- 
equation: 

slgma = square root ( (mean (X**2)) - ( 
(mean(X))"2 ) ) 

The slgma can be used to estimate the range of 
a given set of numbers for a stated confidence 
limit. For example, it is possible to say that the 
data from a reasonably sized experiment can be 
used to tell me the range of any new numbers (if 1 
continue to run the same experiment) to any given 
confidence limit. As an example, drug testing Is 
done in such a way that the FDA can be confident 
that 95%. or 99%. or 99.9%. or 99.9999% of the 
population will react in an expected way to a new 
drug treatment. Notice that there Is no way that 
the math will let you be 100% sure of anything. 
However. 1 have used "confidence limits" tn over 20 
years of engineering experience, and never had an 
exception show up. 

I don't want to spend any more lime on dis- 
cussing why you might want to calculate slgma 
and confidence limits, because I will run out of 
room for FOKI"H. Instead. If you want more infor- 
mation on this very interesting subject, check with 
your public library. They are sure to have several 
books on the subject, ranging from beginner's 
textsto stuffto boggle the mind of a of a math PhD! 

THE LOADING SCREEN 

Screen #100 is typical of the type of loading 
screen which I use while developing a program. 
However. In this particular case, the illustration 
shows the end result, but It will serve to demon- 
strate the main points. 1 will show Its evolution as 
we go along. 

I normally use line #0 to describe the program, 
or segment of the program, which this loading 
screen is expected to cover. As a result. I can 
simply list the first lines of the various loading 
screens in order to know where to look for a 
particular segment of a program. As the program 
gets larger, or at the end of a major portion of the 
development cycle. I will start to build more elabo- 
rate and descriptive loading screens. In this case, 
the program for calculating the slgma value Is 
short enough that this relatively simple loading 
screen is enough. 



The first line also contains a "date stamp," 
which 1 like to tnclude with all of my screens (and 
each individual definition). The purpose of the date 
stamp is simply to make It easy to know when I 
made the last change in a screen (or definition). 
Every time I make a change in a definition covered 
by a particular loading screen. I make a point to 
update the date stamp on the loading screen, also. 
I have written an addition to my FORTH editor to 
make this easy to do. and I will describe it In another 
column. 

Line #2 is the beginning of the list of screens to 
be loaded. FORTH will attempt to execute any 
words found outside of a definition while loading a 
screen: that is why comments must be specifically 
marked in order to keep them from confusing the 
compiler. Therefore, a phrase like 1 LOAD will be 
executed, if it Is outside of a: ...: pair. Likewise, any 
additional such phrases will also be executed as 
they are encountered. 

A loading screen can call another loading 
screen, ad infinitum, so the phrase 1 LOAD can be 
used to load the set of calculator control screens 
which were described in the last column. I think 
that this Is the easiest way to gather a number of 
previously debugged screens into an application 
currently being developed. In fact. I have a disk of 
over 200 screens, which I call my "utility disk" 
which I use as a source for many of the common 
chores: pretty much like the "llbraiy disk" used by 
C programmers. I copy the reuseable screens from 
this utility disk onto a segment of the working disk, 
and then I compile these common definitions Into 
my working program with one or more loading 
screens in the way I have used. here, the phrase 1 
LOAD . 

The remainder of line #2 happens to refer only 
to screens associated specifically with this pro- 
gram, so 1 will not spend much more time on It. 

There is no need for all of the calls to LOAD the 
various screens to be on the same line, it just 
happened to be convenient to do so. in this ex- 
ample. In fact, as I think about It. it probably would 
be more convenient to have each LOAD command 
on a separate line, simply to make it easier to 
change each one without affecting another. Suit 
yourself and do which ever one is the more conven- 
ient for you! 

As a last comment on screen # 100. 1 would like 
to discuss line #4. Whenever there is enough room 
left on the loading screen. 1 like to Include a short 
statement of the purpose of the program or a 
condensation of the algorithm. This helps me to 
keep in mind the real reason for developing an 
application, and cuts down on any tendency to 
stray Into unproductive side Issues. Again, this Is a 
"suit youiself Issue: use the suggestion if you find 
it helpful: otherwise, forget it. 
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PROGRAM DATA 

Screen #101 is exactly the same as presented 
last time. It Is the list of data which will be used to 
test this program, since I already know what the 
result should be. Obviously, this is one of the best 
ways to catch any bugs in a math program: if you 
don't get the expected answer, you know that 
there has to be a bug somewhereiThe data screen 
can be located anywhere, but I chose this as a 
convenient place to put it. DONT TRY TO LOAD 
SCREEN #102! This mistake will produce from 1 
to 33 error signals, depending on Just how your 
particular FORTH tries to process screens during 
loading. This is why 102 LOAD is the first phrase 
in screen #100 to referto this group of screens. In 
fact, a good argument for using a loading screen Is 
that it could make it less likely for you to load an 
incorrect screen. Later on. I'll discuss, in excruci- 
ating detail, how to use screen #101. 

The first step In developing this program was 
to be sure that the data screen could be read 
correctly. In order to do that. I needed to know how 
many data items there would be. This meant that 
I had to read the llrst number on the disk: in this 
case, line #2 of screen # 101. The easiest way to do 
this was to bring screen #101 into the file buffer 
and. then, to treat the buffer as an array. In this 
way. I could use NUMBER to fetch the count to the 
top of the Data Stack. 

Therefore, screen # 103 was written. The pur- 
pose of this screen was quite limited: initially, I 
only wanted to fetch Ihe screen and move the 
count to the Data Stack. In order to fetch the data 
screen. I only needed to enter, from the keyboard, 
the phrase 

101 BLOCK<CR> 

in order to copy screen #101 from the disk to 
the file buffer. Furthermore, the address of the 
first byte of the buffer was left on the top of the 
Data Stack, ready for further use. This sets up the 
Data Stack in readiness for the execution of 
SIGMA . 

Line # 1 of screen # 103 is a ltttle bit of cheating, 
since I knew that I was going to need extra copies 
of the buffer address later on. I went ahead and 
copied the address, here, for later use. Also, I knew 
that I would need to know the address of the buffer 
if I had to debug this definition of SIGMA at this 
point. So. Just consider the DUP as a little bit of 
Insurance. 

Line #2 makes the conversion from the ASCII 
string into the number stored on top of the Data 



Stack. The first byte of the number-string to be 
converted begins at the 64th byte of the buffer. 
Remember that NUMBER requires a pointer to the 
FIRST BVrE OF THE SITTING MINUS ONE! Theie- 
fore. we want to point to the string by adding 63 . not 
64, to the address of the first byte of the buffer. 

NUMBER produces a 32-bit result, and we can 
only u se a 1 6-bit Integer with a DO . . . LOOP . which 
Is the way we plan to use the count. FORTH always 
has the higher 16-bits of a 32-blt number as the 
top-most Integer, so a simple DROP will convert the 
product of NUMBER into an integer which we can 
conveniently use. 

I decided that I would save myself some trouble 
with stack management by keeping the count in a 
VARIABLE . rather than juggling it with the ad- 
dresses which would be kept on the Data Stack. By 
storing the count into _COUNT . I moved it safely 
out of the way. and could rely on It always being 
conveniently available whenever it was needed. 

NolJce that I keep using the word "convenient." 
I think that this is a very important notion. If 
program development were not convenient, I think 
that I would lose one of 1he major advantages of 
FOKI"H. If I had to sweat and strain to develop a 
program, I would waste a lot of time and effort. Why 
not keep things as simple and convenient as pos- 
sible during program development? If necessaiy. 
after lhe program is actually running and reasona- 
bly debugged, then go back and make changes in 
the program that were put in there for development 
convenience; but don't let the search for program 
"elegance" distract you from the main task of writ- 
ing a functional program. 

Finally, the : in line #4 is necessary in order for 
the definition to be properly compiled. By being on 
a line by itself, the ; does not have to be erased and 
rewritten as new words are added to the definition. 
Therefore. I have honored the concept of "maximum 
programmer convenience." 

This definition can be tested by usingthe follow- 
ing loading command: 

1 LOAD 103 LOAD<CR> 

You can also replace line #2 of screen #100. as 
I did. The command: 

100 LOAD<CR> 

would then cause the group of screens con- 
trolled by screen #1 to be compiled, followed by the 
preliminary definition of SIGMA from screen #103. 

When you are satisfied with the program, to 
date, you can clear the dictionary by typing: 
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FORGEr MC<CR> 

(refer to screen # 1 for the deilnltlon of MC ). 
Execution of the command: 

101 BLOCK SIGMA<CR> 

causes the expected results— 32 stored In 
_COUNT and the buirer address on top of the Data 
Stack. 

Now that we know that we can properly read 
the count from the data file, we arc ready to try 
reading the actual data items. We do this by 
adding 128 to the address already on the Data 
Stack, because the first data byte is at the begin- 
ning of line #2 on screen #101. This pointer Is 
calculated In line #4 of screen #104. Notice that I 
was able to add this line to the screen without 
changing any of the previous lines: this is what 1 
meant when I talked about programming conven- 
ience. 

At this point, I realized that 1 was going to 
generate enough code that it wou Id not fit Into J ust 
one screen. Therefore, 1 decided to factor the 
definition of SIGMA by means of the sub-deflnltlon 
(SIGMA) . I could have force-fed the definition of 
SIGMA with the additional code I needed light 
now. but there was no point in doing that, since it 
was obvious that factoring would eventually be 
necessary. Besides, good factoring Is the essence 
of good FORTH code. Well. I must admit that my 
code may not always be good FORIH, but it 
certainly is factored! 

Screen #105 contains the definition of 
(SIGMA) . You may ask how we can put the 
definition of a factor alter the definition of the root 
word. The answer Is that, since we are using a 
loading screen. Instead of — > to load multiple 
screens. It makes no difference what might be the 
numerical order of screens. For testing at this 
stage, our loading screen will contain: 

1 LOAD 102 LOAD 105 LOAD 104 LOAD 
Since I had planned to read and process the 
input data through a DO ... LOOP , I must set It up, 
now. Line # 1 of screen 105 fetches the count from 
_COUNT and sets the limits of the DO ... LOOP . At 
this stage. I am only going to be sure that the data 
are read correctly by ©INPtrr . Remember that 
©INPUT leaves a pointer to the next data item on 
top of the Data Stack, so that the address calcu- 
lated In line #4 of screen # 104 Is the only pointer 
which we need to calculate, explicitly. 

Lines #3 and #4 are somewhat redundant, but 
I wanted to make sure that the CALC-1 math 
board was actually doing exactly what I expected 
it to. Line #3 Is all that is really necessary to 



display the Input data after Initial processing by the 
calculator, but line #4 was emotionally satisfying. 

Line #5 of screen #105 simply closed the DO .,. 
LOOP . 

Testing the program at this point demonstrated 
that everything was working as expected. There- 
fore. I was ready to proceed with the actual compu- 
tations, which were based on the RPN algorithm 
shown In Figure 1. 

1. Read and enter a data item. 

2. Save a copy of the input data for later us 

3. Add the new data item to the running total. 

4. Recover the copy of the input data and square it. 

5. Add this squared value to the running total of 
squares. 

6. Repeat steps 1-5 until all of the input data have 
been processed. 

7. After all of the data have been entered, calculate 
the mean of the sum of the Input data and square 
this mean. 

8. Subtract this number from the mean of the sum of 
the squared input. 

9. Calculate the square root of this difference and 
report it. 

Figure 2. The algorithm for calculating the standard 
deviation. SIGMA . 

Examination of screen #106 shows that the first 
4 lines are Identical to those of screen # 105. Lines 
#4-5 save a copy of the input data in the memory 
register of CALC-1. and then add the Input data to 
the running total, which will be used later. 

Line #6 is Included as an indication that every- 
thing is proceeding as it should, or as a debugging 
aid. SHOW displays all of the CALC-1 registers, and 
KEY DROP causes everything to pause until I press 
any key. This gives me time to study the data 
displayed by SHOW before It has a chance to scroll 
by and be lost to view. 

This time, the proper command for testing Is: 

1 LOAD 102 LOAD 106 LOAD 104 LOAD 



You could put the command FORGET MC into 
screen #100 as Une# 1. but I chose to keep it 
separate. FORGET MC would produce an error and 
prevent compiling whenever you tried to use 100 
LOAD from a cold start. I count this as an unnec- 
essary aggravation and prefer to keep FORGET MC 
as a separate command. The worse that can happen 
by not using it Is that I get a lot ofwamlngmessages, 
but I still get compilationlNow that I know that the 
basics of the program work properly, I am ready to 
add the remainder of the calculations. Screen #107 
is the new version of (SIGMA) . The first six lines are 
unchanged from screen #106. and the lines #6-8 
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simply complete the operations necessary for 
steps 1 -6 ofthe algorithmin Figure 1 . Lines #9-10 
of screen #107 were simply pushed down from 
lines #6-7 of screen #106: this was easy to do wtth 
the editor supplied with FF9. 

At this point. I encountered my first serious 
bugs! There are two of them. The first one Is that 
I cannot possibly get the correct answer for the 
standard deviation, because I forgot to clear the 
CALC- 1 Internal registers before making the first 
addition. If I fall to clear these registers, then I 
don't have an Initial zero base for the first addi- 
tions. The CLEAR-CALC command In line #1 of 
screen #110 does this Initialization, and It must be 
done as the llrst operation of the program. 

The CLEAR-CALC command forces CALC-1 
Into floating point mode. This may be acceptable 
for small numbers, but we can quickly get an 
overflow error if any number anywhere during the 
calculations should grow larger than 99.999.999. 
CALC- 1 gives no useful overflow warning, nor does 
It automatically switch Into scientific notation, so 
we must explicitly switch Into scientific notation 
mode, before doing any calculations. The 
TOGGLE-MODE command takes care of this 
problem. 

The Insertion of line # 1 Into screen # 108 is the 
only change from screen #104. The new version of 
line #2 of screen # 100 Is: 

1 LOAD 102 LOAD 107 LOAD 108 LOAD 

The Insertion of line #1 into screen #108 fixed 
all of the bugs, so far. so I decided to add the rest 
of the calculations to the definition of (SIGMA) . 
This is shown In screen # 109, lines # 10- 15. 1 also 
made some other, minor, changes to the definition 
of (SIGMA) . one of which was simply to comment 
out line #3. since I knew that this part of the 
program was working correctly. By removing this 
line with a \ , but not erasing it from the screen. 
I could. In effect, reinsert this line at any time by 
erasing the \ and recompiling. 

The other minor change was to separate the 
two pointer designations Into "adrl" for the start 
of the buffer and "adr2* for the start of the data. I 
had to do this In order to get a better control over 
the root definition SIGMA . Possibly. 1 should call 
this a major change In (SIGMA) . but I think that 
it Is really more of a major change In SIGMA . In 
any case, the argument is moot, since the change 
had to be made In both definitions. However, since 
the two pointers are both carried on the Data 
Stack, the names "adrl " and "adr2* mean nothing 
to FORTH; they are just used for programming 
convenience (there's that word, again!). 



A change In the definition of (SIGMA) requires a 
corresponding change In Its root definition SIGMA 
. Therefore, we can't test the new version of (SIGMA) 
until we have made the changes shown in screen 
#110. This version of SIGMA now provides the two 
pointers, "adrl" and "adr2." OOPS! Where did that 
"•INPUT ERROR*" come from?!? Removing the \ 
from line #3 of screen #109 did not provide an 
answer, so I had to dig deeper. 

Since the error was with the input data, I knew 
that SHOW would not tell me anything useful. The 
only thing left, obviously, was DEBUG . You may 
well ask why I did not Immediately resort to DEBUG 
. and my only answer Is "too lazy." The use of 
DEBUG usually results In so much data being 
dumped out so fast, that it Is sometimes hard to 
spot Just where the program went wrong. Therefore, 
I bowed to the inevitable and entered the following 
command string: 

DEBUG (SIGMA) 101 BLOCK S1GMA<CR> 

which produced the result shown in Figure 2, 
the last twelve lines of output to the display. Of 
course, there is the problem! The DUP on line # 1 1 
of screen #109 is not copying the expected pointer! 
it Is simply duplicating the pointer to the beginning 
of the disk buffer, and not to the pointer to the 
"count" bytes. (By the way. do you see the other 
error, which I will point out a little later?) 



B7FA B91A 


ANSHER4. 80000000 E03 


B7FA B91A 


>MEM 


B7FA B91A 


PLUS 


B7FA B91A 


XXM 


87FA B91A 


SQUARE 


B7FA B91A 


PLUS 


B7FA B91A 


►£M> 


B7FA B91A 


(LOOP) 


B7FA B91A 


DROP 


B7FA 


DUP 


B7FA B7FA 


S INPUT 


•••INPUT ERROR 


* * * 



Figure 2. The end of the output resulting from the 
DEBUG (SIGMA) 101 BLOCK SIGMA<CR> 

About this time. It occured to me that the 63 on 
line #3 of screen #1 10 was a little too obscure In 
meaning. Therefore, when I wrote screen #111. I 
decided that I should change this to 64. so that its 
meaning would be more clear the next time I looked 
at the listing of this program. (Does this mean that 
the'sclentlflcmethod'iswhat you do while you are 
waiting for Inspiration?) 

As soon as I made this change, like the prover- 
bial light bulb. I recognized the problem with the 
previous version of the program. I had forgotten 
that ©INPUT had to have a pointer to the first byte 
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of a string convertable by NUMBER . Since $B7FA 
pointed to the start of the disk buffer, it could not 
satisfy this requirement; no wonder I got the error 
message! Once I recognized the problem, the solu- 
tion was simple. 

In order to save a calculation later. I decided to 
make a copy of the pointer to the count byte string, 
which I am now calling "adrl ." This was done with 
the DUP In line #3 of screen #111. 

The phrase 1- NUMBER completes the opera- 
tion which had been on the single line #3 of screen 
#110. Now the Data Stack contains the original 
pointer to the buffer, a pointer Into the buffer, a 
pointer to the count byte string, and the count 
integer, In that order.The count is stored into the 
_COUNT variable In line #5. This causes the Data 
Stack to contain only the two pointers; albeit. In the 
reverse order to what is needed. However, this Is 
easily ilxed by the SWAP In line #6. Now. line #7 of 
screen #111 is the same as line #5 of screen #110. 
and we can add 1 28 to the pointer to get the "adr2" 
required by (SIGMA) . The screen is beginning to 
look kind of messy, but the delinlllon of SIGMA . 
itself. Is still pretty clean, if you remove all of the 
comments. Therefore. I think that I will let the 
messy look ride, for now. 

Ok, so let's test again, with line #2 of screen 
#100 becomming: 

1 LOAD 102 LOAD 109 LOAD 1 1 1 LOAD 

Oh, blast It! The program worked, but I got the 
wrong answer! Well, nothing for it, but I must now 
debug the math sequence. Therefore. I copied 
screen # 109 to screen #112 and added all of the 
SHOW commands. Screen #100 was changed to: 

1 LOAD 102 LOAD 1 12 LOAD 1 1 1 LOAD 

in an effort to llnd the math error. 

Hoist on my own petard, again! The ©INPUT 
has the wrong pointer. Actually, the problem Is 
already fixed: I Just failed to let it happen. I forgot 
to DROP the unnecessary pointer placed on the 
Data Stack by ©INPUT when it finished reading the 
count string the previous time. The addition of 
DROP in line #13 of screen #113 would kill this 
bug, and the loading line now became: 

1 LOAD 102 LOAD 1 13 LOAD 1 1 1 LOAD 

At last! I got the right answer this time, and the 
algorithm is finished, so there is nothing lelt to do. 
but tidy the screens a little. 



There is certainly no question that screen #113 
is in too much of a mess to leave it that way. If 1 ever 
expect to understand it a week later. Since the 
algorithm really has two phases: 

(1) reading and calculating the running totals, 
and 

(2) calculating the square root of the differ- 
ences, 

that would certainly appear to be the logical 
place to split the screen. Therefore, I rewrote 
screen #113 into scree ns #114 and #115. calling 
the two definitions (SIGMA 1) and (SIGMA2) . or 
course, this also meant lhat a new version of 
SIGMA was required, and this became screen 
#116. When this was done, the new version of the 
loading screen became the one now shown in 
screen #100. 

CONCLUSION 

I hope that some ofyou found this effort useful, 
and the rest ofyou were not bored, too much. If any 
ofyou want me to do other columns like this one. 
please let me know. Otherwise. I will stick to 
presenting more-or-less finished programs, and 
not go into so much exhaustive detail on their 
development. 

On the other hand, please let me know if 1 have 
been spending too much time with basic detail. I 
will try to be guided by the kind of feedback. If any. 
that I get. 

FEEDBACK 

Speaking of feedback. I would like to get more! 
Letters and telephone calls are welcome, but you 
can also reach me on DELPHI as RDLURIE and 
CompuServe asID# 72667.3437. 1 check into each 
one at least twice per month, so I can get EMAIL on 
either. Let me hear from you about what you want, 
your gripes, news. etc. 
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\ Standard deviation loading screen 


\ RDL 09/01/87 


SCR 


1107 




1 









: (SIGMA) ( adr - ) 


\ RDL 09/02/87 


2 


1 LOAD 102 LOAD 114 LOAD 


115 LOAD 116 LOAD 




_COUNT 8 DO 


\ set loop limits 


3 








eiNPUT 




4 


\ SIGMA - square root ( (mean (X«»2)> - ( (mean (X))"2 ) > 




CR .ANSMER 


\ display initial input 










>KEM 


\ save copy of input 


SCR 


1101 






PLUS 


\ running total of input 





\ DATA 


\ RDL 09/01/87 




X><M 


\ exchange total ( input 


1 


32 






SQUARE PLUS 


\ running sum of inpit**2 


2 


5500 5500 5500 5500 5200 5200 5200 5200 5000 5000 5000 4600 4700 


8 


HEM> 


\ ready for next operatlo 


3 


5000 4600 4800 4500 4400 4700 4700 


4600 4400 4600 4600 4500 450 


9 


SHOW KEY DROP 




4 


4500 4500 4700 4800 4800 4800 




10 


LOOP ; 




SCR 


1102 




SCR 


1108 







\ CONSTANTS, etc 


\ RDL 09/01/87 





: SIGMA ( adr - ) 


\ RDL 09/02/87 


1 






1 


CLEAR-CAIC TOGGLE-MODE 


\ initialize calculator 


2 


VARIABLE _COUW7 




2 


( adr ) DUP 


\ copy of block address 








3 


63 + NUMBER 


\ fetch the data "count" 


SCR 


1103 




4 


DROP COUNT ! 


\ save the count 





: SIGMA ( adr - ) 


\ ROL 09/01/87 


5 


( adr > 128 + 


\ point to input data 


1 


( adr ) OOP 


\ copy of block address 


6 


(SIGMA) ; 


\ do calculations 


2 


63 ♦ NUMBER 


\ fetch the data "count* 








3 


DROP COUNT ! 


\ save the count 


SCR 


1109 




4 


; 







; (SIGMA) ( adrl adr2 - ) 


\ RDL 09/02/87 








1 


_COUNT B DO 


\ set loop limits 


SCR 


1104 




2 


( adr2 ) t INPUT 







: SIGMA ( adr - ) 


\ RDL 09/01/87 


3 


\ CR .ANSWER 


\ display initial input 


1 


( adr ) DUP 


\ copy of block address 


4 


>mn 


\ save copy of input 


2 


63 + NUMBER 


\ fetch the data "count" 


5 


PLUS 


\ running total of input 


3 


DROP _COUNT ! 


\ save the count 


6 


X><M 


\ exchange total ( input 


4 


t adr ) ~128 + 


\ point to input data 


7 


SQUARE PLUS 


\ running sum of inpjt»*2 


5 


(SIGMA) ; 


\ do calculations 


8 
9 


MEM> 

LOOP 


\ ready for next operation 


SCR 


flOS 




10 


( adr2 ) DROP 







: (SIGMA) ( adr - ) 


\ RDL 09/02/87 


11 


( adrl ) DUP 




1 


COUNT 9 DO 


\ set loop limits 


12 


8INPUT DIVIDE SQUARE 


\ (mean of sum of input) **2 


2 


g INPUT 




13 


X><Y 


\ swap stack contents 


3 


CR .ANSMER 


\ display initial input 


14 


(•INPUT DIVIDE 


\ mean of sum of (input**2) 


4 


SHOW 




15 


X><Y MINUS SQUARE-ROOT 


.ANSNER ; 


5 


LOOP ; 




SCR 


1110 




SCR 


1106 







: SIGMA ( adr - ) 


\ RDL 09/02/87 





: (SIGMA) ( adr - ) 


\ RDL 09/02/87 


1 


CLEAR-CALC TOGGLE-MODE 


\ initialize calculator 


1 


_COUNT t DO 


\ set loop limits 


2 


( adr ) DUP DUP ( - adrl ) 


\ copies of block address 


2 


e INPUT 




3 


63 + NUMBER 


\ fetch the data "count" 


3 


CR .ANSWER 


\ display initial input 


4 


DROP _CDUNT ! 


\ save the count 


4 


>MEH 


\ save copy of input 


5 


( adr ) ~128 + ( - adr2 ) 


\ point to input data 


5 


PLUS 


\ running total of input 


6 


(SIGMA) ; 


\ do calculations 


e 


SHOW KEY DROP 










7 


LOOP ; 











SCR 


till 






SCR 


1114 





: SIGMA ( adr - > 




\ ROL 09/02/87 





: (SIGMA2) ( adrl - ) \ RDL 09/02/87 




CLEAR-CMC TOGGIZ-MDDE 




\ initialize calculator 




( adrl ) DUP 




( adr ) OOP 




\ copy of block address 




gINPUT ( adrl+3 ) DROP 




64 + DUP ( - adrl 


1 


\ point to "count" 




DIVIDE 




1- NUMBER 




\ fetch the data 'count' 




SQUARE 




DROP COUNT ! 




\ save the count 




»<Y 




( adr ) ( adcl ) SWAP 








gINPUT ( adrl+3 ) DROP 




( adr ) 128 ♦ t ■ adr2 


) 


\ point to Input data 




DIVIDE 


8 


(SIGMA) ; 




\ do calculations 


8 
9 


X><Y MINUS 
SOU ARE -ROOT 


SCR 


1112 






10 


CR CR .ANSWER CR ; 





: (SIGMA) ( adrl adr2 - ) 




\ ROL 09/02/87 






1 


_COUNT g DO 




\ set loop limits 


SCR 


1115 


2 


( adr2 ) g INPUT 









1 (SIGKA1) ( adr2 - adr2tx ) \ RDL 09/02/87 


3 


>MEM 




\ save copy of input 


1 


_COUNT 8 DO \ set loop limits 


4 


PLUS 




\ running total of input 


2 


( adr2 ) BINPUT 


5 


X><M 




\ exchange total ( input 


3 


CR .ANSWER \ display input 


6 


SQUARE PLUS 




\ running sum of inpit**2 


4 


>MEM \ save copy of input 


7 


HEM> 


\ 


ready for next operation 


5 


PLUS \ running total of input 


8 


LOOP 






6 


X><M \ exchange total ( input 


9 


( adr2 ) DROP 






7 


SQUARE PLUS \ running sum of input **2 


10 


( adrl ) DUP SHOW 






8 


HEM> \ ready for next 


11 


SlNPUT DIVIDE SQUARE 


\ 


(mean of sum of input) **2 


9 


\ operation 


12 


SHOW 






10 


LOOP ; 


13 


X><Y SHOW 




\ swap stack contents 






14 


gINPUT SHOW DIVIDE SHOW 


\ 


mean of sum of llnput**2) 


SCR 


1116 


15 


X><Y MINUS SHOW SQUARE- 


ROOT 


.ANSWER ; 




1 


: SIGMA ( adr - ) \ RDL 09/02/87 
CI£AR-CAIC TOGGLE-HDOE \ initialize calculator 


SCR 


1113 






2 


( adr ) DUP \ copy of block address 





: (SIGMA) ( adrl adc2 - ) 




\ ROL 09/02/87 


3 


64 ♦ DUP ( - adrl I \ point to 'count* 


1 


_COUNT 8 DO 




\ set loop limits 


4 


1- NUMBER \ fetch the data 'count* 


2 


( adr2 ) g INPUT 






5 


DROP COUNT ' \ save the count 


3 


>MEM 




\ save copy of input 


6 


< adr > ( adrl ) SWAP 


4 


PLUS 




\ running total of input 


7 


( adc ) 128 + ( « adr2 ) \ point to input data 


5 


X><M 




\ exchange total t input 


B 


(SIGMA!) \ do summations 


6 


SQUARE PLUS 




\ running sum of input**2 


9 


( adr2+x ) DROP \ tidy Data Stack 


7 


MEK> 


\ 


ready for next operation 


10 


(SIGKA2) ; \ finish calculations 


8 


LOOP 










9 


( adr2 ) DROP 










10 


( adrl ) DUP SHOW 










11 


£ INPUT DIVIDE SQUARE 


\ 


(mean of sum of inpit)**2 






12 


SHOW 










13 


XX Y SHOW ( adrl 4-3 ) DROP 




\ swap stack contents 


BOP 




14 


gINPUT SHOW DIVIDE SHOW 


\ 


mean of sum of (toput**2> 




15 


X><Y MINUS SHOW SQUARE- 


ROOT 


.ANSWER ; 
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H10IC«AA> ULCAStS 06V9 CHOfiS C OQW1LH 
nfe ttkVLCTT FAOAU> SOlIC* 100 W*i*£TATlOKa 



DCS N01MES. (ova. Microvare Systses Corporation proudly announces a 
new OS -9/ ICC Croaa C Cwpllir for Hewlett Packard Sirlti 100 
Not hetstlona. MP Series 300 umi can now ■■■**tal«, link and coapll* 
OS-9/6S0S0 C projuM undff the H9/UX operating ayateei Cor real-tie* 
operation Oo 09-9 baaed aye toe. 

nicrovar* eupp^rte an efficient. hlg> performance OS-9 C Ceeipllar that 
conforu to the Kernlflen and Ritchie standard, Q8-9/XCC alao 
providaa eatenalve Berkeley 4,1 oriented libraries, coenplete with 
standard 1/0 and HATS routinaa. to ■axleilie portability between tha 
OP/UX and OS-9 operating system*. Users ara able to davalop ntw or 
•elating 8P/U* realdent C prognu with OS-9/ICC (00x0 ay a tee 
coeponentai C Executive. PreproceesOr . One-Pees C Cnpllir, Optlaleer 
OtilJtias, Kacro Assembler and I. Inker tor reel-tie* OS-9 •■•cation. 
0S-9/XCC pr©gr**a caapll*d on »P 100 Serlaa Workstations produce 
poai tlort indapandant ■ reentrant . cOatpact eeVCu table object coda Cor 
tha 08-9 operating aystaa. rjeera alao have tha option to output 600x0 
mi>bl(r aourca, linker, Input ot executable binary (ilea, 

Th* 08*9 Operating Systeia la * reel-Lite, aultl-uaar and eul t i-tasklng 
system for coaowtei. baaed on the entire fully °< Motorola 480x0 
■ Icroprocaaaora. OS-9 uaaa a independent aodular architecture to 
support a heat of Cll« aintfin, high level language! and defeucgere 
which are uaad world-wide for Induatrlal and scientific appllcat lona. 
And aince OB-i la ccecpsct. both tha operating eyete* and executable C 
object fllea are completely ftoetable Cor dedicated target eyeteea. 

Powerful coaaaunlcat Ion packages ara available Croat Hlcroware to 
facilitate hardware links between OB-* and IP series 300 Morsetatlona. 
Tha OS -9/ ESP Ethernet Support Package provide* Ethernet TCP/IP 
coaekunlcatlona, supporting both PTP snd Telnat • to facilitate file 
transfer and reaote login to both hoet And target systems. 
Mlcrowars'a COK Coawnanlcat ion Package provldea high apeed aerial 
CoeeStnl cation a to aftd fro* 08-9 ayeteft* end the BP Serlee 300 
Workstation, Both packagea aaaura high perforaAnce and coupe t Ibl 1 it y 
Cor the tranafei of C programs written with OS-9/XCC. 



03-9/XCC ia distributed on atendard OP Setlee 300 cartridge tape Cor 
easy Installation. 0S-9/XCC can be purchaeed by contacting Hlcrovare 
or an authorised Microware distributor. 



Pcuxwled In 1977. Hlcrovare Syeteei Coi poret ioa apecls Usee in the 
development of advanced operating ■yeteeu and prog teaming languages 
that haa been licensed to awinuf ectursra world-wide for use In 
induatrlal. scientific and coneusMr products. Laet year Sony and 
Philips announced the OS-9 Operating System as the foundation for 
Compact OlAOlRteractlve ICD-U Hc« Media Technology. Hlcrovare 
offices ara located in Pea Nolnaa. Iowa, Santa Clara. California and 
Tokyo, Japan with field repreaenuit I vea worldwide. 

JUICR0NICS 



Mivnxompuim- HirduirmndSolruirr 
C I M I \ ' Sairv ScfiittandSii ppon 



Dear Don, 



»338Jl.yNSA\EMf 
ABBOTSFORD. 
BRITISH COL l.MBIX. 
CANADA. VJSIE: 



It's been a long, long time since I wrote XBASIC 
XPLAMATIONS, but as a result of a recent phone call 
from a reader I'm persuaded to write occasionally 
about any BASIC programing tips that I think algbt be 
useful. I don't intend to get Into anything major, 
such as writing a STMVTREK or GALACTIC SflCOT-D*-UP, 
but will merely discuss various techniques from time 
to time* 

For instance, how about rands niafaers? EVeryonr, of 
course ( Knows how to generate a random number, let's 
soy in the range 1 through 52. 

100 J\ - PND(0) ♦ 52 ♦ 1 

1*18 will do the trick nicely. Bach time line 100 is 
executed it'll produce a randaa number in the required 
range, which may, or may not. be the same as one 
already produced. Which causes ptoblems if we want to 
produce a eajwu-L of numbers team this range with no 
two — ta ns the mrm. suppose , as an etanple, we were 
writing a card-game program of some kind, and we 
wished to shuffle a deck of cards by randtmi sijig the 
Integer mzjuaxx 1 through 52. What now? I've seen a 
program eueb as the following which does the trick t 

100 C»(l) - rac(0) * 52 ♦ 1: PCB I« • 2 TO 52 
110 Jt - ETB(O) *52+l:PGRKI>lTOH-l 
120 IP C%(K%) • J\ OOIO 110 
130 HETT Ri C%(It) - J%: HEXT 1% 

Let's examine this little fellat Line 100 begins by 
selecting a random card-number for Oard-1, let's say 
it '8 23, and then goes into an 1%-loop to choose the 
remaining 51 cards. Beginning with Cerd-2, line 110 
chooses another random- number, and then goes into a 
K%-loop to check this number against all previously 
chosen numbers. The first time round, r.% is 
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restricted to the -range 1 TO 1, so Card-2's number is 
checked only against Card-l's. If they happen to 
Batch, line 120 bouncea us back to line 110 to pick a 
new number, and begin checking all over again. 
In the beginning, this program will accumulate a 
shuffled deck quite rapidly, but as the shuffled 
portion increases in size so too does the chance of 
choosing a number which has already been selected. 
And don't forget, each new random number has to be 
checked A9alnst.-nn ever-increasing number of already- 
chosen cards. So each new random card becomes 
increasingly difficult to find, with the program 
Blowing down to a snail's pace as it tries to shuffle 
the few retaining cards. 

Yet I've seen this very routine, or venations of it, 
in all kinds of programs where randan sequences are 
required over a given range, but with each number 
different from all others selected. 
llere'B a slightly better way to do the sane thing : 

100 FOR It ■= 1 TO 52: B%(I%) - Is NEXT It 

110 POR It •= 1 TO 52 

120 J% - RNDC0) • 52+1 

130 IF Bt(Jt) - GOTO 120 ELIE Bt(Jt) = 

140 Ct(It> ■= Jt: NEXT It 

This runs faster because we set up an srray, ts%. in 
Line 100, and initialise it completely to 1. Then, 
for each card in sequence, we choose a randan nmfcer, 
J%, frotn the range 1 to 52, but this time, instead of 
checking it against all previously chosen numbers, we 
look in the Bt-arj-ay to see if it's Already been 
selected. If it's OK, we set BMJl) to to indicate 
'This number has been chosen* and set C%(lt) to J». 
And so on for the whole 52 cards. Even this program 
slows down drastically as the available numbers get 
used up, and it has to keep on trying hew random 
numbers to find an unused one, but at least it "knows" 
almost instantaneously whether the new nimber is valid 
or not! 

However, there's a much better way to do the job! 
It's PAST all the way through and gets the job done in 
a fraction of the time. 

100 FOR It = 1 TO 52: Ct(It) = I»: NEXT 1% 

110 POR It = 52 TO 2 STEP -1 : J* «= RND(0> * I» + 1 

120 SWAP CUIt),C»(Jt>: NEXT It 

Do you see how this one works? We use only one array, 
Ct, to hold the numbers in numerical sequence to begin 
with, and also to shuffle them around. Line 100 does 
the initialising, then in line 110 we imagine 
ourselves looking along the line of the array from the 
high end (Card 52). Next we select a random card fr«n 
the deck of 52 (say Card-23) and swap it with Card-52. 
So now Card-23 is in 52's position and 52 is in 23's 
position. Then we slide down the deck by one card. 
Ignoring the 52nd position altogether, and select a 
random card from the renaining 51 to swap with Card- 
Si. Just by chance, of course. It could be position 
2 3 again (now holding the 52 card), but more than 
likely it'll be some other card which has to be 
swapped into position 51. And so on down through the 
remaining deck, which Is itself getting randomised 
along the way, until there are only two cards left. 
We randomly choose one of these, which, of course, 
only leaves the card in poeition-l, and as we have no 
choice left for this final card, we simply abandon the 
It-loop at this point. 

And so we now have our randomised sequence stored in 
the Ct-array, which took only 51 times through the 
loop to accomplish! Whenever friend Oenis and I write 
a card-game program (BRIDGE being our latest effort as 
of 31 Dec '87), we use this last method, which I hope 
you'll find useful in your arsenal of programming 
quickies! Although I've mentioned card-games in 
particular. It can obviously be used to produce mn 
non-repeating sequence of randomised integers. 
I'll be in touch. 



Dear Don, 

It's surprising how things scan to acquire a momentum 
of their own! For Instance, it's not all that long 
ago that 1 ran out of steam on XBASlC mjWATICHS, and 
now, just because one reader got ne started again it 
seems I've just got to keep rolling, always with the 
hope that this Is what readers want, of course. 
Anyway, before continuing with X-X, I'd like to 
contribute a little patch to FLEX itself. 
Problem is that several utilities, even major ones 
(STTLO being a case in point) return to F1.EX with the 
Direct-Page Register left set to other than Page-Zero. 
This was brought home to me some time ago when an 
iBASIC user mentioned that "BASIC would malfunction if 
it were called immediately after using STYLO. IBASIC 
is OK, as it doesn't make use of Page-Zerol At the 
time I merely amended RBASIC so that It would 
initialise the DP-register to 00, and didn't think too 
much more about it. Until one day I found that 
DISFEDIT bombed out under similar circumstances, 
sometimes merely returning me to 3KBUG, and at others 
bombing FLEX and producing lines looking like 
ignition- interference running up the screen. 
I realised that 'fixing* STYLO wasn't the complete 
answer, as there are lots of other programs that do 
the same thing. Besides, If an emergency situation 
occurred where I had to leave STYLO under abnormal 
conditiona, I'd still have no guarantee that the CP- 
register was correctly restored. Equally it was 
totally out of the question to fix each and every 
program which used Page-0 (as I'd done with IBASIC) , 
as this would Involve patching lota of major programs 
like XPC (TSC's Extended Pre-Compiler) , which tended 
to "screw-up" just on certain statements, such as 
LSET, for some strange reason. But only if called 
1m— iHmtmly after program like STYLO. 
So . . . I decided the easiest way wa» to fix FLEX 
Itself so that on Warm-Start it would correctly 
initialise the DP-reglater. Obviously this would have 
to be done somewhere between Warm-Start and the point 
at which it put up Its ++-f prompt, but there didn't 
seem to be any room to spare where I oould squeeze in 
the necessary code, low what? I noticed that there 
were a fern calls to subroutines, so maybe there was 
room in one of these ... maybe I And guess what? tuck 
was with me, because I found that the very first 
subroutine call, B) DELS, (at least in GXX-TLEX9) was 
to a vector, 7E DE39, which in turn was a simple RTS. 
So that BO DE18 did nothing more than go to an RTS and 
bounce right back. 

Luck was more than with me! 8D DE18 took up three 
bytes of code and that was exactly what 1 needed to 
initialise the DP-register to 00! I And now mil my 
programs function correctly after using STYLO, or any 
other program which destroys the DP-register. For 
what it's worth, here's the patch. Lock for this code 

CD67 10CE C07F 

CDSB H) DO.8 

CD6E 8E CD03 

CD71 BP CC16 

and change the BD DE18 to 

4F Clear A 

IF 88 Set DP-reg to 00 

Addresses may be slightly different in your version of 
FLEX, and you should also trace out fan BD DE18 (or 
whatever) to make sure that it too boils down to a 
mere RTS. CD67 is my Warm-Start entry-point, but be 
careful, as the Cold-Start entry-point at CD57 also 
commences with IKE C07F. 

You'll be amazed at how many of those weird, 
unexplained bomb-cuts just don't occur any morel 
Seems like I've gone on long enough for this time, but 
1 thought readers might like to hear the story behind 
these "fixes', rather thru* just a "Here's a patch to 
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FLEX. Bangl Bang 1 Hope you like it 1 " style of 
writing. I did have quite a lot to say on logic 
functions in BASIC (I'll use this term to cover both 
XBASIC and RBASIC. or even other general-purpose 
BASICS) i beyond what I eaid earlier in x-x, but I 
guess I'll have to leave that till next time now. 
Have a good New Year everyone ! I 



Don Williams, 

68 Micro Journal, 

5900 Cassandra Snith Road, 

Hixson, TO 37343 



Sincerely, 

u 

R, Jones 

President 



PS I'm now in the middle of writing Mile 34 of 
'Logically Speaking", which looks like it'll finish 
aaoewhere around Mile 36 or 37. This has been a major 
undertaking for ne, but has certainly helped hone my 
writing skills - not that they're sufficiently 
developed yet to be called "skills". 
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Kint Cotryktr Srtlunwi 

The primary prvecax ot *be 88000 contajn* bo»h an inle^ a«i a floating point unit, 
making it ihc firii to pUcc chwe twoc»(<*tiliit«or)» a single chip- The infcgtnoon erf both 
functions provide ■ balanced aicbiioclLne and ■ ugnii leant boost in pa tamper. Covpled with 
the ptwmor at* iwo cache chipi. one for dim and iht other for insma^kras (see anaehed 
liiigran.). This, dull CMMU structure ot*ic. an efficient parallel flow of information . fcnvwn a> 
Hwvif -irylc aichiieciurt The CMMUs also rtk*x the sysicm deugiicT from the ccpdulrc 
and anw-cfiDuunm g task of bnaleDc»ac\g a separate ache memory scheme. 

The 88000 li initially Bebif oaotJiaciund in t.Smkjvn HCMOS.a high-speed 
derivation of CMOS (c omp V aigp ury, mcHtox.dc <cndfCTAaaor)twhnototy. Acceding to 
Oaiaouesi. Motorola makts more than onc-ifeird ofihe worW's CMOS prndwax (J457 oallleB in 
1986). Ulooiastly. the oew pndiEt li« urill move u> sub- aikSTB axtaotagy as we»U as ECL 
(cmrttn coupled ic^). * praxa uic4 to mamdacturc Hjh pctftiTMii^ armkiwl ucnax 

"Manufacnmni esxtlkncc u cuestial to delivering and enhavadqg 32-bii 
DUcfoiaaassafs."* said MumyGoldcnaii. senior idtttpfa(d£Mai.d general aavmirrof 
Motooila'i Micrormzcucff Products Group in Anuria. Texas. "By containing control of (he 
man ufacturing process, we giicnntoe ihc quality thai theindusnryckpendson," 

ScoithoanAmg Soeedi Software Develoomcni 

Motorola reported Today that (he 99000 uses an advanced teduuo.tK calkd laaxraardv^ 
[hu dfipliflei ite design of ctxripdcra and appUaiipnj aofhwr. The agaghatod tllocjita (he 
primary pajuceasor* a register set to aeasrsraais tc the aoncuTTrm cxecutuxt ftfld m*Djpulatka> of 
multiple IfflDxcrioea. This allows software wnten to ufiioe the complete refiner xt without 
dc Fining ihc ctaci progvrsTJon of informs ton as li makes its way fjvuugh (he chip, thus reducing 
the time required to write ootimuod RISC software. 



MOTOROLA RELEASES PRELIMINARY 
INFORMATION ON NEW RISC PROCESSOR LINE 

Fieri iy Name and Uiriosl Spadfkslcns Rcveakd 
17 MIPS Product Slated for Seoand-Qu aner Unveilin g 



AUSTIN. Teal*. Feb. 17. 1W8 — Mctcwoit Inc. today released preliminary 
cpKifaikxo of inacwbMcrfralonriUMJwrostf CTTrra^i^ 
m icWfaooai son. The product family, offkiaU y oacvz) the 88000 provide! the hlgbea 
perfonaancc available to 32-Wt r iiiuupwin sm. 

The 83000 it i thnawru p set cratfaininj • primary pnkxsior i ad (wo cache memory 
tBattafSDient units (CMMUs). The chip's pafuussuce ts 17 milium iAfvuceiooj per asccAC 
(MIPS) and 34,000 Dbtysiooea. ti gcneniea over SO MIPS inptralk. (Vtaxsriog designs. 
More than 200 cvnnaiu cs are rrvk*w g cpeufKadDtu of the prckxaicv , and can ly samples 
are being rvahiiasd by lilmhnl numba of sysem vendcex 

Motorola did not rd case ibe remaJniflJ desaUioothe arfesrspreaaaaaa' % 
arehiiBCtiirc aad availability. The tunpu y will uavcil the 8S0O0 and provide a 
(saeopkKselof spxiflcailo«s 0) the staend quarter of 1988. 

Atxvdioj toMomnJa, enarfceta for the 88000 bxludc tekfimsniaikaBOtsa, areuVtal 
inDdbgerLc, grepbica, 3D arisadon, engineered design, scicsntAc ri na da riiat , andhitav 
en vitoofl s ew . psnlld proeeann g aynems and fuyeruanputeri. 

r^itenee of 68000 aad RISC 

Motnlt anpttM^ad la anntinuil to Ox 68000 nuuu|mLaax fwmly md ttaabd 
rtui ihe curkc] will wppon both oi dw mnp«ny's 31-tril rniavpnKass liM*. 

"Jul «i the bftOOOaakd the wnrkuuion mcAa. iheSBOOOwiU opw new Buriua 
AttdonoiaKiioitey." md O.H*™o "WMJe die S8000 v<iU exTwd ilxiiiflicuiantiueby 
■xukiJl^ Ki|l)-parf(EiiunK lyntnu inch u M p a umy ifitn nm afTaiUMe. Ae 60000 runily 
wilt cmlina to aSa ihc moR aov^flasivo 32-tic iMfuw * *. " 

Moavli'f n MUico &alai«bcnr Itutta Scoot (Aali . Arte). »hidi inlxes 
the MKa^ckkbit PrxJuch Oto^» <Aus6n, Tun], is ■ dMdan of Movml* inc. h b ihc 
Ivgesiod bnademn^jpikrof tfAsxdnanta Norti Amcno wiibabAksBd (radin 
fxrtblla of ovct 50,000 6cvtot 
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MOTOROLA ANNOUNCEI THE AVAILABILITY Or THE MCAMW 

USER'S MANUAL TO WWOKI DESISHHKI Of THEIR 

SECOND OENERATION ENHANCEO 3J»rT 

MICROPROCESSOR 



Austin. T»kss, Jinuiry 3S, 1SM.. ...Motorola'* Mlcroprocossor 
Prooucn Diviiion inneuKM tM InmMiaii MslUbUKy at lit* umi'i 
mtnusi (or tlw MCUOJO, (UO). th» mcmoxi uhti Msnusl conjoins 
o«»cTlpiton» ol tho mlcrofir^Maor'o odvancod capabllRlos, oporallQno 

and programming oaialtt. 

Tf» 030 (on BXty) la Dm mwMl mambar ol Ina M4JUO0 arjrra*r*<DmiMHDl« ntmroira 
isrmv rr< en inrv fjrov««« up lo twea ma paftafmanea ol ma meat hj .» ' M «i»i>mda*> mm 
M inosjiDua, UsMraiai uceeON (CttO) Tna AM a m* urn Mnvmaan to tuva orxt« 
data and InaiTtaTtlon cachat. paraaal IHan/ard-ttya)) ircfwacajri. anc botn l y neMxtflb a and 
atyni7wia>s bus Marl scat, and Ircaxlaa l rnaffwy manaoarnani unit 
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MOTOROLA OtTROOUCIS [MMANCCO TOKEN BUS COKrnOU.tR FOR 
RBAL-Tllli COMMUNICATION NETWORKS 

TrUl car 4)% •• UCUI24 Tatra 8ei CeatreUrr. IMJ pallid >• 

14mtHl 444 49m Qffftid <4 4 4t w far C4lt ti4ltie UnJid Cmlf 

Cmrrltr IH.CO Paraefa 

Aurljn. Tarie. January 20. tafO.- the Motorola Microprocessor 

Products Dtvlilon l« introducing ■ new e/inenced Token Bus Controller 
chip (enhanced T9C) eeelOned for COS! eenaklva. tiigh performance '••!• 
lima communication networks Such aelarorko tor factory 

communication* ara apaclflad bv ma Enhanced Perlcrmanet 
Arehflaclura IIPAI portion ot Menutacturtng Automallon Protocol (Map] 
1.0. Ir peitorttilng IIEI Nl.I Logical Link Control (LLC) type a 
acknowledged connacllonlaai eervlcea on-ctifp. lha Enhancad TIC 
elgnjrlcenliy Incroeae* lha raal time perfofmence ot trie network and 
•igntrteenliy cecreeoee in* amount or eottwarc lha programmer la 
required » write. The Enhanced TIC la pile* eosipetaive wtlh Other 
network eekitlona ouch It CSHAiCO (Ethernet or IEEE 001.1) while 
onetlng lat greater iillaeilut and capaoaa» 



i LAW VLSI 



i.-rrwraaaanticowea 



Aandfcrg at * 

Token Bue rulliaaa haa oaan e 
pea rear Pw raw cVeea^ao TBC r^prwew doors to rran tWVIpaad and raal sme pwatrrtwnoa 
i to rhe Nph rjerformenae axa&asra ■ etraaoy supports ' These eaneevwl 
I aw coat, low wveftSCtory cniej u BaiS . inva i nm 
t beneft rrom the rcc\SB<«a» a the IEEE 
•014 I 



Tha SPI It etpaoairy useful at t minor whan aacStlonai on-chip penphersj 
drains ara required In lha systsm. Motorola's SPI compataMe penpharas 
incajeaj 



MC145041 

UC1KM 

MC145O0 

MCI44110 

•MCI4M51 



B-M A/D Convener 

7-SeTjmarn LEO Display OecrxMrtOnver 

LCDOrtvar 

r>A Cortvarlar 

10/Ort A/0 Convene* 



Tha now apeAcaso n noto eieo Oeegrfces a epeckal cat* which occurs wnan ono 
or mora of tho trat n ieontrolrara in a coast do no) have SPI rjepwaey in ruvcSwats 
A simple eofhaa/a roultna can bo written to portorm the rntaitaca In tucn casta, 
tvoto) itg lha need tor enema hard* ara altsmatrvss and simpotyino. design 
sBorta 

For a copy ol the (ppacajton noto (AN991/D). contact lha Motorola UWrature 
CHnnbutlan Cantor. P Boi 20912. Phoenli, A2 85 34, your local Motorola 
Salop Offica or Motorola Olstnouior 
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50 Waal Hoovar Ava. 
Mom. ArlionaiSItO 
Tal. (603) M2-5559 
Fan (602) 962-5750 



Raaotar Contact : Mark Stephana 
Editorial Contact: Coama Pabouctsldht 



ompac autiua rmtcaj or ctozo aoAaos 



Haa a. AS.. Hatch 4. 1 »»« - - 1 OP AC baa dr a a t J. c a 11 y 

raducad tha pclca of tba 010MVO-20. <t020 c»o board 

for tha O-It bua. At Mil for alngla quantity srdara, 

tba OBSatrO-10 la no* tha laaat aiaaailn 

la^iaaantatloa of SS020 Ct>0 oo otandarct hoard laaal 
prodocta. 



ThaEnrartaoTBCB 

appaatcra aucn ai awinimara Siaraavcai 
oawoaaM by MAP in maaa «ou 
MAP a wrjpBj and awipanana Tha 



IrmaanaldManaaadoanlolOkHr ■ dad tor ton coat 

(Ban |ISAJ SP-«0 nam Oua, ovnaatf not 

prpajCP cpnaai iAa t a aWdad ao tho cpnaau ki nio 

TBC em atteba uaod tor rax barfcjaana local 



Othar rrrvranrnontl, Men aa taOMt dJEE OOJ 4 protocol irnpaifnanuAcax braloarg ocllcra] and 
inuoaud rwtMWa naaWiy. rava Oaan an y larrwrea u H lha ctaiat TBC. Tha Enhancad Town 
Baa Caramaar a tOOX toavo compaltaa arah atcHOrobVi aiming Totcan Bus Convenor aaoaa; 
uaad today worVArUa Pariormme IEEE S02J Lopva) Or* Conpol (UC) typo 3 aj. nanpal 
cornactnnleio aanrtcor ancnip. lha Ermoncid TBC dromallcaor iroiaaal tfw raal oma 
parrormaraa c* ina naraoni ano acjnl icani ry ojcnuaaa tha raojarad rappontrQ uOMf 

rnatoaaooimarac raabaanpuarad 10 to taaPtr rt eantfcn 10 aaaao> * aaattd 10 aril HMHr 
>nsn TN naw Er»u»««l TBC a avaaam at IP. 115 and isUHz acaiada Tho Enhancad 
Tckan Sua ConvcOa. aj arronay avaaatpo n an ta-Mad pin grid amy raaAapa A PICC packapa 
vinloTi ant Da aratabto at 1CM Pncmg tor 100 plaee avaracafa ot both da) currant TBC 
|UC4n«aP£l0)ind11*cM*raMTf>SIXCaxa34BClPElaS^^ For 



taiOHlAI COMTAf!T 
Plana Fafcanbarg 

5i2raisssas 
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Taxm^at ado Carnal 
P O. BO. J2073 
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Lovni Tohon 
Sll/tJt 2035 

MOTOPrTXA IBSUCB APPLICATION NOTE FOP 
SERIAL PfJBPHEKAl. IMTEPFACE 

Tha oppeeaonn nota Oaacnbat concwent undar wttacn SPt may provsla a 
toajdon 10 probtamo ancountarad hi such comrnurecason. oapooaRy whon 
dilttring proeatao rt ara utarj 

SPI ayttami can oa oparaiad In mattar or novo tnodas: tha tlsva baing usorui 
whan iha MCU it aawdad tor usa at a ima/i panpharal or at a slave processor 
Tha SPI svotyttam it alto anactiva in murbrnataar lystami It is compaiaOia wiih 
many ol lha industry's senal communica ion panphoral tCs. 



Tha OMOOa-IO faatttraa a 12.5 Ut (too C»3, I5tA of 
aaro-»eit -atetoe CatOB PjUI. aockata for op to 912 
Kilobytes of IPROM and aookat for tho 6!»S1 arithaotls 
coprooaeaor. The hoard alao aalate aqulppad alth S12 
Kllobytae of PJUI aad a IS.T SOU clock. 

Tha hoard ie fully oapoodabia to uee tha oalootloa of 

oaar ISO hoard lovol fonetiona of farad by OlBtAC oa 
tha 0-S4 bus. fba Oi-» raal-tlaia, alllti-t aablng 

oparatlep ayatam lo availahla for tha Oasjftrj-20. 

CSSPAC IHTPO0UCI3 VIPSATILI «80» S I RGLt BOARD COMP0TIR 

ataiA. AI, January 22, 1MI--SESFAC Introduna a n» 
alngla hoard alcrocoaputar featuring tha (009 
■lcroprocaaeor aiaad at labaddad Latttaaaat aad 
aachlna control appllcetlono . Tba CeSSbS>4A fita oa a 
alngla height Surocard aad la coapatibla aitb tba 
atenderd 6X4 hue. 

The OSSSBB-4A la equipped ulth 3 JCOBC aockata that 

can eecoaaaodata up to 32 kbytaa of KPRCat end up to 1C 
Kbytae of OeOS RAN Tba RAM area la poaered out of ao 
oa-hoerd lltbluei battery that awitcbei la 

eutoaet icelly In tha event of a paver failure and 
prevents dote loae for over tvo year*. 
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Th* board provide* tha ugir with 40 TTL para 11*1 I/O 
Una*, ona RS-232 oarial port. four IS-blt timet, and 
a coal t iaia clock/cilindir powind by th« on -board 
battary , Th* GC33B3-4A alio is also •quipped with a 

"watchdog" tiui which prottcti tha nodul« against: 

lois of program Control 

Th* board can b* uiad in *t*nd a Ion* operation or in 
conjunction with any of th* ovar ISO 2/0 and mamory 

modulas offorad by GE3PAC for th* C-64 bua 

Th* G-*4 bu* it *n uiylo-lntirfm a*cond g/*n*ratLon 
16-bit bus aimad at nidcan^a industrial application*, 

Th* CKS5BS»4A ia luppoitad by QZiPXC with th* 03-9 
t*il Licit BuititaaKino; operating ay at am 

Th* GKS3B3-4A is available today at th* low unit pric* 
of 9495 



Joaaph 0. Condon 
607J 112nd »l V. 
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rhooi 4I2-4U-76?*. 

'*■■! <lr, 

[ would Ilka to bftnt to yoot •tlootton • I TPOSt a ph 1 « ■ I 
*i r or that occurrid In »J irtlclc "l«th on a l«4|it" aa It 
appaarad In tha Jiouiry la iui of 4 0riJ , On >*»* 48. Hittnl Ft, 
It rta 180 ihould raid 'IF *< I ) > H TBI* ■ - w< I ) ' . 1 a« aorfy to 
«ny liiconvanlancaa t M » pI «> t hava (auaad you oi 7 our iii^irl. 
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VHfSa-i 



«► IIVTEli-lSOFT 



U'ir;ih P. CdBlO 



BOOKMARK MACINTOSH DEBUTS 

ffovtBo.CAJvw*ry t& - InitUuofi hai rcleued anew vtniw of BOOKMARK diuu acr mxrvcry 
•o/twDT to wppoTt Apple CbmpMurr't Mat-inivnh Pim and Sfc Mode If. Thii new fradun. which 
mirlu the third by IniclUloti lnuan«tnflai. crprtiraoi aa anpnsxdrruid breai ihnwgfc in (lie 
mkmsrhBVtcTffuvii^ lace since ii i» LSe ftrw lofiwart to back up RAM. or ay* trai wimj. 



"We're excited (o be in (he Mactaitnn anna- we Ihirtk it hu ■ very brljh t fuliwc," »k) com- 
pany pmtdcni Bmre Blcmun. He addtd thai ihe BOOKMARK ovmvt« b * unique one bcouar 
it placet OVbuiuCD ctf backups iheMnv^'.noi&e user, who it then free ttaavxnimc on more 
creatfvcUukt. 

BOOKMARK it i voftwflR? dak aousiay bniened to provide fault tolsmni computing by 
4iam»txilly»»aiinBunwvtd work tv the hyd dilJt Thil "Trmcry backup- prevm it lo*» of daia 
due to power ftilure. acctdenwu po**r down or read, &ncw error* ((b* "bomb"), or (loam 
keyboard After reboot, recovery uJte* ju» tccrob and roquew only j tvtfje fccyan*c armovnc 
dick. 

AncMbCf opnon allow, Mac in lath lyUcon wiffcixilha/d dukiw mil in? GOOKMAP.K Thiife* 
lureanvokeiJixtimaUcfiEe saves to floopy tfuV si uicr ikSuwhlc inirjvait 



Ttt (<I5«A IID 

i *.m Uigur .f-w. 

Tile* 470746 



Classifieds 



As Submiued - No Guarantees 



D 



MCJSTANG-020 16Mb:, with 68881 OS9 Professional Package * C S3*». 
CallTom (615)842-460i. 

AT&T 7300 UNIX PC. UNIX V OS. 1MB Memory. 20 MB Hard Disk. 5" 
Drive. Internal Modem, Moult. Best Offer Gels IL 

DAISY WHEEL PRINTERS 

Qumc Sprint 9 - $900 
Qume Spiint 5 - S800. 

HARD DISK 10 Megabyte Drive - Seagate Model «412 $275. 
3-Dual 8" drive enclosure with power supply. New in box. S125 each. 
5-Sicmens 8" Disk Drive, $100 each. 
Tano Outpost II. 56K. 2 5" DSDD Drives, FLEX. MUMPS, S49S. 

SWTPC S/09 with Motorola I28K RAM. I-MPS2. I -Parallel Port. MP- 

09CPU Card- S900 complete. 

Tom (615) H424600 M-F 9AM to 5PM EST 

GMX MICRO-20 (16.67 MH/)wiih MC68881 and OS9/68020 professional 

pak S3500 or hesi offer. 

John Bing 9-5 EST (301)428-8214 

»»» 

Complete Set of 68 Micro Journals from February 1979, volume I, issue I, 

thru current. All in good oi excellent condition. Asking S2S0. 

Alt*, two complete. 6 year old. SWTPC 40 Meg. CDS-2 haid disk drives, 

cabinets, cables, documentation and controllers. Power supplies & controller 

cards woik but drives have "cannot open or lead device" errors *n trying to 

mount. Will consider any offer of purchase on "as is" basis. 

Dwighl Lanpher, Box 472. MI: Harbor. ME 04662. (207) 276 5350 



jj^ Apple 

Macintosh- 

^ J Users 

Save over a $1.000.00 

on PostScript 

Laser Printers! 

Faster - Finer Quality 

than the original Apple 

LaserWriter! 

New *V Demos 

Cart ridges-ncw-rebu ills 

-colors- 



;ln Chattanooga Call* 
1 615 842-4600 

QMS-Aulharl7.r<i 



Data-Comp Division 
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SUPERIOR SOFTWARE 

FOR YOUR 

6809 



SK-OOS* Disk 

Operaltng System $75.00 

Configuration Manual $50.00 

HUMBUG* Monitor $50.00 

MICROBUG Monitor $30.00 

SPELL 'N FIX Spelling Checker $89.29 

STAR-OOS lor tt» Coco $34.50 

CHECK N TAX $50.00 



AND 68000 



* SK'OOS* 

Operating System $140.00 

* HUMBUG* Monitor I 50.00 

SPELL N FIX 

Spelling Checker (Coming) 




K 



SOFTWARE SYSTEMS CORPORATION 

80X209. MT KISCO.NY.105«9'91*241-0287 



OMEGASOFT 

6809 PASCAL CLOSE-OUT SALE 

50% OFF ALL 6809 HOST PRODUCTS 

In March and April you can purchase OmegaSoft Pascal 6809 
host products at 50% off our regular price, direct from Certified 
Software Corp., or through participating dealers. The following 
products are available: 

PCS2 + RALL1 : Inctudescompller, assembler, linker, debug- 
ger with source code, and runtime library with source code. $275 
SKKI : Screen Editor Kit. Configurable for various terminals. 
$45 

APU1 ; Allows use of AM 1)95 II chip for integer, longlnteger, 
and real arithmetic. $45 

MTK1 : Multi-tasking kernel. Allows task procedures wlthuut 
an operating system in your target system. $85 

Available for OS-9 (Mlcroware), 1'LEX (TSC), MDOS and 

XDOS (Motorola) on 5" or 8" SSSD format. 

Shipping charges extra. Mastercard and Visa accepted. 

These products to be discontinued after April. 

OmegaSoft is a registered trademark of Certified Software 

Corporation. 



CERTIFIED 616 CAMINO CABALLO, NII'OMO, CA 93444 

SOFTWARE TEL: (805) 929.1395 TELEX; 467013 

CORPORATION * AX; (805) 929l39S (mid-sam) 



SOFTWARE FOR 680x AND MSDOS 



SUPER SLEUTH DISASSEMBLERS 

EACH 198- FLEX 5101-OS9 5100-UNIFLEX 
OBJCCT-ONLY tOtalMa: EACH SM.FLEX.OSt.COCO 

k«iA^ g*«ere?e eource on (MA with label*, ewlud* wel, ornery eating 

epoclrr MOO.I.Z. 3.5.CMS0Z eerelon or ZIIVM».3 vOralcn 

GS« veraion eoto pncilHI FLEX lorrnel obtocl tae under OSS 

COeO DOS eveeetee W «M0.I.ZJ.J.l.om5nj trenUOfl (nol 2UUMUI only 

M010 Olaaatambler I lOO.FLEX.OSt.UNIrLE I.US0OS.UN1I.SKD0S 

CROSS-ASSEMBLERS WITH MACRO CAPABILITIES 

EACH JSO-FLEX.OSSi.UNIFlEX.MSDOS.UNIX.SKOOS 3/1100 ALL'i200 
tpiciry i eo*.ei02.«aoi/i t ,aaO't.oflC5,«ao».za.zaa.ao4a.aosi .aoas.rsso i o.aaooo 

nvoouter rjcai uurreiert H C. MW> fceoyiinead vJHoW 
•own* ax arMUkmel WO each. Iin lac 3. (300 lor an 

DEBUGGING SIMULATORS FOR POPULAR 8-BIT MICROPROCESSORS 
EACH »75 FLEX J100OS9 IBO-UNIFLEX 

OBJECT-ONLT virion*. fACH 1W-C0C0 FLEX.COCO OSS 

krueractherj tvnulals prooeteot, IncAMM rJbuU03*n**V rormltll«0. CJne'y educvg 

ic»ai» kii satxvi. (uwnts. woa. mo» os». zeo fleji 
ASSEMBLER CODE TRANSLATORS FOR 6502. 8800/1. 6609 

EWikXMt l»-FLEX HiOSI *IO-UNIFLEX 

aaoo/i to saot » am lo potmon.tno. »mflex i7^osa jbo-uniflex 

FULL-SCREEN XBASIC PROGRAMS wllh cur.or control 
AVAILABLE FOR FLEX. UNIFLEX, AND MSDOS 
OISPIAY OENERATORrOOCUMENTOR »M alllwin, tilt wllhDUl 

MAIUN9 LIST SYSTEM 1100 - lot re, 1 50 (rllrloul 

INVENTOR* WITH UHP (100 w mure. ISO nrlriool 

TABULA RASA SPREADSHEET SIM wllotir 1. »Sf) wllfioul 

DISK AND XBASIC UTILITY PROGRAM LIBRARY 
J50-FLEX S30-UNIFLEX/MSOOS 

xllt dtaX ttftrfl. tofi OVectory. roemuun mister calatog. do GIF* ion*. 
reeeDjwance some or AN ol BASIC program, ire* BASIC program. He 
norvFLE* rertkrrte eirjurje tort and resequence! only 

CMODEM TELECOMMUNICATIONS PROGRAM 

J1M-FLEX,OSB,UNIFLEX,MS-OOS.UNIX,SKDOS 
OBJECT-ON LT vorilortt: EACH (SO 

menu-drtrefi •Ol Mrmaiol mode. Mt trerrarer. UOOEMF. XON XOFF. no. 
for OOCO am) rrorvCOCO; <»rve* mania) COCO modem port * 10 2400 Baud 



DISKETTES & SERVICES 

5.25" DISKETTES 

EACH 10-PACK ST.SO-SSSOrSSODroSOO 

Airier Icenmede. guaranteed 100% quality, wrtti Tyvatt ]o«*oll. hub nnci and larjala 



ADDITIONAL SERVICES FOR THE COMPUTING COMMUNITY 
CUSTOMIZED PROGRAMMING 

wo «ai cuitcmua any of me program* desc/feeo m th* eovenisofivem or m our 
brochure lor eoectsfeod customer um or lo covor now proEoaaors: the charge 
tor such eusromtrerion depends upon the rnerueuayiitr of mo mooVicaUons 

CONTRACT PROGRAMMING 

wa wfll Creole mar program* or mo0»V eUermg programi on 1 oontfecl trcsla. 
a Mrvlco no hatre Groveled tor oval twenty years: tno nsmpulari on wnich wa 
novo ponbrmed axtna prooraanmlrHj ardurja rnoK pnpulor modrMB at 
main Ira/no*. »«9uoVf> IBM, BurrwAJho, UnlVaO. HonOTWOl, mool pcajular 
modabi ol minkwaJM , induolro, DEC. ISM. DO. HP. AT1T. am) moal 
soputii Dnnoi ol mtmaxnpulart. Mluova) oOOOfl. eaoa. ZM. (S02. 
680*0. utaig moal oporoprlole languagn and operating Irslama. on tyttarnt 
ranglno at trio Irom lorgt loHKOmrrronicolioni to I mgli tloord conlro*ora. 
Iho charm lor oontrod progronvning bj vikjaV by rha hour of by trio taak. 

CONSULTING 

wo offer a wida rengo ol buaMhHLt and laconical rxnautung service*. Iftdkeano 
tomlnart ad^o*. Irawno, end dttton, on any topk related to QDvnautera: 
me charyo tor oomdiBrg lo nonneDy hosed open rena, Irovet, and eapenxei. 



Computer Syatema Contulttntg. Inc. 

1454 Lena Lena. Conysri. GA 30Z0T 

Talaphont 404>483.4570 or 1717 

W* lako ordara at any lima, but plan 
long dlacuaalona attar B, M poaalbla. 

Contact ua about catalog, deolar. dlacounta, and aarvlces. 
Moal programs In sourcs: glvs computsr, OS, disk slza. 
25% oil multiple purcrtaaas of umt program on ona ordar. 
VISA and MASTER CARD accaplad; US lunda only, plieie 
Add GA salaa lax (il In GA) and S* ahlpplng. 

tUNIIFLEX In* Teennrcal Sralama CorUMeunn. OSVa Mcimrare. 
COCO T>rrO) ItSOOo MDrsortSKDOS Stark Sonxuo 
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K-BASIC* 

The Only 6809 BASIC to Binary Compiler for OS-9 

FLEX or SK*DOS 

Even runs on the 68XXX SK*D()S Systems* 



e m ........... - N 

Hundreds Sold at 
Suggested Retail: 

$100.00 



• 6809 - 0S-9™ users can now transfer their a£X™ 
Extended BASIC (XBASIC) source files to OS-9. com- 
pile with the OS-9 version and run them as any other 
OS-9 binary "CMD" program. Much faster than BASIC 
programs. 

• 6809 - FLEX users can compiler their BASIC source 
files to a regular FLEX ". CMD" file. Much faster execu- 
tion. 

• 68XXX - SK'DOS™ users running on 68XXX systems 
(such as the Mustang -08/A) can continue to execute 
tfieir 6809 FLEX BASIC and compiled programs while 
getting things ported over to the 68XXX. SK'DOS 
allows 6809 programs to run in emulation mode. This is 
the only system we know of that will run both 6809 4 
68XXX binary files. 

K-BASIC is a true compiler. Compiling BASIC 6809 pro- 
grams to binary command type programs. The savings 
in RAM needed and the increased speed of binary 
execution makes this a must for the serious user. And 
the price is now RIGHT! 

Don't get caught up in the "Learn a New Lan- 
guage" syndrome - Write Your Program in 
BASIC, Debug it in BASIC and Then Compile 
it to a .CMD Binary File. 



For a LIMITED time 
save over 65%... 
This sale will not be 
repeated after it's 
over! * 

SALE SPECIAL: 

$69.95 



SPECIAL 

Thank-You-Sale 



On(y from: 



c 



S.E. Media- 



p 



i 



5900 Cassandra Smith Rd 

Hlxson, Tn 37343 

Telephone 615 642-6809 

Telex 510 600-6630 



A Division of Computer Publishing Inc. 
Over 1,200 Titles - 6800-6809-68000 



* K-BASIC will run under 6&XXX SK'IXXS h onulaku mat fee the 6808. 

Price ubjecr. to dvaigc wihou notice. 
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Clearbrook Software Group (604) 853-911 8 




CSG IMS Is THE full featured relation- 
al database manager for OS9/OSK. 
The comprehensive structured ap- 
plication language and B-t Tree index 
structures make CSG IMS the Ideal 
tool for file-intensive applications. 



CSG IMS far CoCo2/3 OS9 L1/2 (single user) 
CSG IMS for OS9 L2 or S8000(mulU user} 
CSG IMS demo with manual 



$169.95 
$495.00 

$30 



MSF - MSDQ8 File Manager (or CoCo 3/OS9 Level 2 
allows you to use MSDos disks directly under OS9. 

Requires CoCo 3, OS9 L2, SDISK3 driver $45.00 



SERINA « System Mode Debugger for OS9 L2 

allows you to trace execution of any system module, 
set break points, assemble and disassemble code and 
examine and change memory. 

Requires CoCo3 or Glmix II, OS9 12 & 80 col. terminal $139.00 



ERINA - Symbolic User Mode Debugger (or OS9 
lets you find bugs by displaying the machine state and 
instuctions being executed. Set break points, change 
memory, assemble and disassemble code. 

Requires 80 column display, OS9 L1/2 $69.00 



Shipping: N. America • $5. Overseas - $10 
Clearbrook Software Group P.O. Box 8000-499, Sumas, WA 98295 

OS9 If fl trAdamirfc of Mkrcwvra Sylttffit Corp.. MSOot i* * UadtnwK of MicrouN Corp. 






SPECIAL 

ATARI™ 

& 

OS-9™ 



NOW! 

If you have either the 

Atari 520 or 1040 - 

you can take 

advantage of the 

"bargain of a lifetime" 

OS-9 68K and BASIC 

all for the low, low price of: 



$150.00 

Call or Write 

S.E. AAedia 

5<?00 Cassandra Smith Rd. 

Hixsoo, TNI 373^3 

615 842-4601 



ATARI & AMIGA 
CALL 

As most of you know, we are very sensitive to your 
wishes, as concerns the contents of these pages. One of 
the things thai many of you have repeatedly written or 
called about is coverage forthe Atari & Amiga™ series of 
68000 computers. 

Actually we haven't been too keen on those systems 
due to a lack of serious software. They were mainly 
expensive 'game-toy" systems. However, recently we are 
seeing more and more honest-to -goodness serious soft- 
ware for the Atari & Amiga machines. That makes a differ- 
ence. I feel that we are ready to start some serious looking 
into a section forthe Atari & Amiga computers. Especially 
sosince OS-9 is now running on the Atari (reviewcopy on 
the way for evaluation and report to you) and iumored for 
the Amiga Many of you are doing all kinds of interesting 
things on these systems. By sharing we all benefit. 

This I must stress - Input from you on the Atari 
& Amiga. As most of you are aware, we are a 
"contributor supported" magazine. That means 
that YOU have to do your part. Which is the way it 
has been for over 10 years. We need articles, tech- 
nical, reviews of hardware and software, pro- 
gramming Call languages) and the many other fac- 
ets of support that we have pursued for these many 
years. Also I will need several to volunteer to do 
regular columns on the Atari & Amiga systems. 
Without constant input we can't make it flyt So, if 
you do your part, we certainty will do ours. How 
about it, drop me a line or give me a phone call and 
I will get additional Information right back to you. 
Weneedyourlnputandsupportifthlsistosuceeedl 

DMW 
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THE 6800-6809 BOOKS 

..N£A* Yt. HEAR 



OS-9" 
User Notes 



By: Peter Dibble 

The publishers of 6B' Micro Journal are proud to make 
available Che publication of Peter Dibbles 

0S9 usei sons 



Infon 



itloo for Che BECDrfflR to the PKO, 
tcRular or CoCo OS9 




Using 0S9 

HELP, HINTS. PROBLEMS. REVIEWS. SUGGESTIONS, COMPUINTS. 

0S9 STANDARDS. Generating a New Bootstrap, Building a 

new System Disk, 0S9 Users Group, etc. 

Program Interfacing to 0S9 

DEVICE DESCRIPTORS. DIRECTORIES, "FORKS", PROTECTION 
■SUSPEND STATE", "PIPES". "INPUT/OUTPl'T SYSTEM", etc. 

Programing Language ■ 

Assembly Language Programs and Interfacing; Baslc09, C, 
Pascal, and Cobol reviews, programs, and uses; etc. 

Disks Include 
■o typing nil tbe Source Hating* In. Source Code and, 
where applicable, assembled or compiled Operating 
Programs. The Source and the Discussions In the 
Columns can be used "as Is", or as a "Starting Point" 
for developing rout OWN more powerful Programs. 
Programs sometimes use multiple Languages auch as a 
abort Assembly Language Routine for reading a 
Directory, which Is then "piped" to a Baslc09 Routine 
for output formatting, etc. 



BOOK $9.95 

Typeset -- w/ Source Listings 

U-Hole Punched; B x 11) 

Deluxe Binder ---------- S5.5i 



All Source Listings on Disk 



1-8" SS, SD Disk - 
2-5" SS. DD Diska - 



• - S14.9S 
- S2*.9S 



FLEX" 
USER NOTES 

By: Ronald Anderson 

The publishers of 68 MICRO JOURNAL are proud to 
ake available Che publication of Ron Anderson's FLU 
DSER MOTES, in book form. Thia popular monthly column 
has heen a regular feature In 68' MICRO JOURNAL SINCE 
1979. It has earned the respect of thousands of 
68 MICRO JOURNAL readers over the years. In fact, 
on's column has been described as the 'Bible' for 68XX 
users, by some of the world's leading microprocessor 
professionals. The most needed and popular 68XX book 
available. Over the yeara Ron's column has been one of 
the most popular In 68 MICRO JOURNAL. And of course 
68 MICRO JOURNAL la the most popular 68XX magsilne 
published . 

Listed below are a few of the TEXT fllea Included in the 
book and on diskette. 

All TEXT files in the book are on (he disks 



LOGOC I File load program to offset memory — ASM PIC 

MEMOVECl Memory move program — ASM PIC 

DUMP Cl Pnmer dump program — uses LOGO — ASM PIC 

SUBTEST C1 Simulation ol 6800 code to 6809, show differences — ASM 

TERMEM C2 Modem mpul to disk (or olhar porl mpul lo disk)— ASM 

M C2 Output a file 10 modem for another port) — ASM 

PRINT C3 Parallel (enhanced) printer driver — ASM 

MODEM C2 1TL output to CRT and modem lor other port) — ASM 

SCtPKG Cl Scientific math routines — PASCAL 

U C4 Mini-monitor, disk resident, many uselul functions — ASM 

PRINT Ca Parallel printer driver, without PFLAG — ASM 

SET CS Set printer modes — ASM 

SETBASt CS Set printer modes — A-BASIC 

NOTE: .CI..C2, ecc. -Chapter I, Chapter 2, etc. 

"Over 30 TEXT files Included Is ASM (assembler)-PASCAL- 
PIC (position Independent code) TSC BASIC-C, etc. 

Book only: $7.95 + $2.50 S/H 
With disk: 5" $20.90 + $2.50 S/H 



With disk: 8" $22.90 + $2.50 S/H 

Shipping i. Handling $3.30 per Book. $2.30 per Disk set 

Foreign Orders Add S4.S0 Surface Miil 

or $7,00 Air Miil 

If paying by check - Please allow 4-6 weeks delivery 
* All Currency in U.S. Dollars 

Continually Updated In 68 Micro Journal Monthly 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 



FLEX is a trademark of Technical Systems Connultanti 
"0S9 is a trademark of flicrouare and Motorola 
"6b" Micro Journal la a trademark of Computer Publishing Inc • 



(615)842-4601 

Telex 5106006630 



68 Micro Journal 



April '68 



61 



0* 



=\ 



!!! Subscribe Now !!! 
68 MICRO JOURNAL 

OK, PLEASE ENTER MY SUBSCRIPTION 

Bill My: Mastercard [~| VISA[~| 
Card # Exp. Date 



For I Year 



2 Years 



3 Years 



Enclosed: S 



Name 
Street 
City_ 



Slate 



Zip 



Count ry_ 



My Computer Is: 



Subscription Rates 



U.S.A.: 1 Year $24.50, 2 Years $42.50, 3 Years $64.50 
•Foreign Surface: Add $12.00 per Year to USA Price. 
'Foreign Airmail: Add $48.00 per Year to USA Price. 
•Canada & Mexico: Add $9.50 per Year to USA Price. 
•U.S. Currency Cash or Check Drawn on a USA Bank ! 
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Reader Service Disks 

Disk. 1 l-ilcson. Minim. Minioopy.Minifms, "Lifetime. ••PoeJty 

"Foodltn. "Diet. 
Disk- 2 Ditkadu w/ iniLA fixes. Pjime. •Prmod. "Snoopy. 

••FooihaM, "llcxpawn." Lifetime. 
Disk- 3 Q>ug09. Seel. Scc2, Hnd.T»blc2. Inlext, Diik-exp. 

•Disk save. 
Disk- 4 Muling Program , •finddit. 'Change. 'Tesldisk. 

Disk- S 'DISKFOC I. 'DISKFK 2. "LETTER, "LOVESIGN. 

••BLACKJAK. "BOWLING. 
Disk- 6 "Purchase Order. Index (Disk file indx). 

Disk- 7 Linking Loader. Rload, Ilaikness. 

Disk- 8 Crtest. Lanphcr (Miy 82). 

Disk- 9 DaUjcopy . Disk fix9 (Aug 82). 

Disk. 10 Home Accounting (July 82), 

Disk- 1 1 Dissembler (June 84). 

tHsk-12 Modem68 (Miy 84). 

Disk. 13 •Iniimf68. Tesnnf68.*Cleanup,'Dskalign,rlc]p.Diile.T»i. 

Disk- 14 •[nil, 'Test, ♦Terminal. 'Find, •Diixcdit, [nil. Lib. 

Disk- IS Modem9 ♦ Updates (Dec. 84 Gilchrist) to Modcm9 

(April 84 Commo). 
Di.sk- 16 Copy.Txi, Copy.Doc. Cil.Txt. Cat. Doc 

Disk- 17 Milch Utility, RATBAS, A Basic Preprocessor. 

Disk- IK Parse Mod. Sizc.Cmd (Sept. 85 Armstrong),CMOCODE. 

CMD.Txt (ScpL 85 Spray X 
IHsk-19 Qock. Date. Copy, Cat, PDELAsm A Doc.. Eirors.Sys, 

Do. Log Asm A Doc. 
Disk-20 UNIX I jke Tools (July St Sept 85 Taylor A Gilchrist). 

Diagon.C. Grep.C, LS.C. FDUMP.C. 
I>isk-2l UUUiics 4 Games - Dale, Life. Madness. Touch. Goblin, 

SlarchoL. A 15 more. 
Disk -22 Rod CPM 4 Von-FI.EX Disks. FraserMay 1984. 

Dlsk-23 ISAM. Indexed Sequential file Accessing Methods. 

Condon Nov. 1985. Extensible Table Driven. Language 

Recognition Utility. Anderson Man* 1986. 
Disk-24 68" Micro Journal Index of Articles A Bit Bucket hems 

from 1979 - 1985. John Current. 
lli»k.2S KERMTT for FLEX derivad from the UNIX vef. Burg 

ls=b. 1986. (2}-5- Disk t or ( 1 ) 8" Disk. 

llisk-26 Compacta UniBoard review, •ode A diagram, Burlison 

Match 86. 
lllsk-27 ROTABIT.IXT. SUMSTEST.TXT, CONDATA.TXT. 

BADMKN.TXT. 
Disk. 28 CT-82 Emulator, bit mapped. 

lllsk.29 "SlarTick 

lllsk-30 Simple Winchester. Dec. '86 Green. 

lllsk-31 ••• Read/Write MS/PCDOS (SK'DOS) 

IJIsk-32 Heir-UNIX Type upgrade ■ 68MJ 2/87 

lllsk-33 liuild the GT-4 Terminal . 68MJ 1 1/87 Condon. 

lllsk-34 FLEX 6809 Diagnostics, Disk Drive Test, ROM Test, 

RAM Test ■ 68MJ 4/88Korpi. 
NOTE: 
This if a leader service ONLY! No Warranty is offeied or implied, they aic 
as received by 68' Micro Journal, and are for reader convenience ONLY 
(some MAY include fixes or patches). Also 6800 and 6809 programs are 
mixed, as each is fairly simple (mostly) to convert to the other. Software is 
available to crost-aiiembic all. 

• Denotes 6800 - • • Denotes BASIC 

• • • Denotes 68000 - 6809 no indicator. 



8" disk $19.50 
5" disk $16.95 



Shipping & Handling -U.S.A. Add - $3.50 
Overseas add: S4.50 Surface - S7.00 Airmail 

68 MICRO JOURNAL 

5900 Cassandra Smith Rd. 

Hixson.TN 37343 

(615)842-4600 - Telex 510 600-6630 
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PT-68000 SINGLE BOARD COMPUTER 

The PT68K2 is Available in a Variety of Formats 
From Basic Kits to Completely Assembled Systems 



BASIC KIT (8 MHZ) Board. 68000. 
HUMBUG MONITOR ♦ BASIC in ROM. 
4K STATIC RAM. 2 SERIAL PORTS. aO 
Components $200 

PACKAGE DEAL Complete Kit with 
Board 68000 10 MHZ, SK'DOS. 5l2K 
RAM. and all Necessary Parts $530 

ASSEMBLED BOARD (12 MHZ) 

Completely Tested. 1024K RAM, 
FLOPPY CONTROLLER, PIA. SK'DOS 
$849 

ASSEMBLED SYSTEM 10 MHZ 

BOARD. CABINET POWER SUPPLY. 
MONITOR » KEYBOARD, 80 TRACK 
FLOPPY DRIVE, CABLES $1299 
For A 20 MEG DRIVE. CONTROLLER 
and CABLES Add $345 



PROFESSIONAL OS9 



"SK'OOS It * Tiatema* a* 

STAB -K SOf 1WARE SYSTEMS COUP 

"CS9 It a Tradanuik of Ulaowire 



$500 




FEATURES 

MC68000 Processor. 8 MHZ Clock (optional 

10.12 5 MHZ) 

S12K or 1024K ol DRAM (no wait states} 

4Kol SPAM (6116) 

32K.64Kor 128KotEPROM 

Four RS-232 Serial Ports 

Floppy disk controller will control up lo lour 

5 1/4'. 40 or 80 track 

Clock with on -board battery 

2 - 8 bit Parallel Ports 

Board can be mounted in an IBM type PC/ 

XT cabinet and has a power connector to 

match the IBM type power supply 

Expansion ports - 6 IBM PC/XT compatible 

I/O ports The HUMBUG" monitor supports 

monochrome and/or color adaptor cards 

and Western Digital Winchester interlace 

cards 



PERIPHERAL TECHNOLOGY 
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1480 Terrell Mill Rd., Suite 870 

Marietta, Georgia 30067 

404/984-0742 

VISA/MASTERCARD/CHECK/C.O.D. 



Send For Catalogue 
For Complete intormation On All Products 
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SPECIAL 



Heavy Duty Power Supplies 



For A Imbed time our HEAVY DUTY SVVTTCHNG POWER SUPPLY, Trees am BRAND NEW unto, tote that 
prices are less than 1/4 the normal price lor these high qualty units. 



Make Boston 

Size 10.5 * 5 * 15 infra 

Including heavy mniD« bracket and heatsink. 

Riling.' in 110/220 vote ac (strap change) Out 130 waits 

Output +5v . 10 amps 
+12v -4.0 amps 

+12v - 2.0 Bnja 

-12v - 03 imps 

Mating Cowccwr. Terminal strip 

Load Reaction: AuDnadc short circuit recovery 

SPECIAL: $59.95 each 

2 or more $49.95 each 

Add: SlSOoA SIR 



J ^ 



Make-. Boschal 
Size 10.75 iMiZ25 inches 

Rating: 110/220 ac (strap change) Out 81 watts 

Oticpuc: +5v - 8.0 amps 
+12v - 24 amps 
+I2v -Z4amps 
+12v - 2.1 amps 
-12v - 0>» « 



Mating Cirmiiy. Mol« 

Load Reaction: Aunjnanc short circuii recovery 

SPECIAL: $49.95 each 

2 or more $3995 each 

Add: 57 JOSH ach 
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NOW THE GMX MICRO-20 HAS A TWIN - 

.d.n^nnn? 3Ae GMX TWINGLE-20 

68020 TWIN BOARD COMPUTER WITH MMU 




MMHMMMtMNMMNNMm ■MMNflMNIMMMIIIIlllfS * 
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All the features of the GMX Micro-20, PLUS - 

• 2 Megabytes additional RAM — for a total of 4 Megabytes of RAM 

• 8 more Serial ports — for a total of 12, and expandable up to 44. 

• MEMORY MANAGEMENT UNIT 



The GMX TWINGLE-20 consists ol 2 boards One ot 
the boards is the same as the Micro-20. except tor the 68020 
processor which Is on the MMU board. It uses the same I/O 
expansion interlace, serial adapter boards, and mounting holes as the 
GMX Micro-20, making it easy to upgrade existing systems. Any of 
the currently available GMX Mlcro-20 I/O expansion boards can be 
used to provide additional I/O capability. Expansion possibilities 
Include additional serial ports (up to 44 ports total), additional parallel 
ports, and local area networking o! up 10 255 GMX Mlcro-20s and/or 
1WINGLE-20S. 

The MMU board contains the additional 2 Megabytes of 
RAM, 8 serial ports with 2 connectors tor the SAB 4 port adaptor 
cards, and the MMU hardware The MMU is a proprietary high-speed 
design that tutly supports virtual memory. The system RAM normally 
operates with only 1 wait-state, regardless of processor speed. An 
additional wait-state is needed only when program (low crosses a 4K 
boundary the MMU can be contigured lor any one ot tour different 
maps, ranging from 8 tasks with 8 megabytes ot virtual address 
space each, to 64 tasks of 1 megabyte each. The MMU can be 
disabled tor applications that do not use hardware memory 
management. 

The TWINGLE-20 two board set can occupy the same 
space as a halt-height 5.25" disk drive. It is available in 12.5. 16.67 
or 20 MHz versions, and with or without the 68881 FPC. 

SPECIFICATIONS 

Size: 8.8 x 5.75 x 1.4 Inches. 

Power Requirements: + 5V0C & 8.3A typical (20MHz. with 

68881), 

The TWINGLE-20 itself does not require a + 12V supply. +12V 

supply requirements, if any, are determined by the serial adapter 

boards and any I/O expansion boards powered through the I/O 

Expansion Interlace 



SOFTWARE INCLUDED: 

An enhanced version of D2DBug with diagnostics tor the MMU and 
the additional RAM and serial pons. 

OPTIONAL SOFTWARE: 

UniFLEX VM, Virtual Memory version of the UniFLEX 
operating system which includes all of the leatures ot the GMX 
Mlcro-20 version, plus lull MMU support. 

The UniFLEX VM Operating System is a demand-paged, virtual 
memory operating system written In 68020 Assembler code tor 
compactness and efficiency. Any UniFLEX system will run taster 
than a comparable system written in a higher level language. This is 
important in such areas as context switching, disk I/O, and system 
call handling. Other leatures include: 
• Compact, efficient Kernel and modules allows handling more 

users more effectively than UNIX systems, using much less disk 

space. 

UNIX system V compatibility at the C source code level. 

C Compiler optimized in 68020 code (optional). 

Record locking tor shared tiles. 

Users can share programs In memory. 

Modeled alter UNIX systems, with similar commands. 

System accounting facilities. 

Sequential and random tile access. 

Maximum record size limited only by the disk size. 

Multiple Level Directories. 

Up to 8 Megabytes ot Virtual Memoiy per user. 
All the optional languages and software thai run under UniFLEX tor 
the Micro-20 are also available tor the TWINGLE-20. 

OS-9 Users can take advantage ol the additional RAM and serial 
ports on the TWINGLE-20. It does not presently support the MMU. 
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Now Offenng *FLEX" (2 Versions) 
AND 'STAR-DOS PLUS+ '" 




For Otttmrtng Call 

(615)842-4600 



FROM - DATA-COMP, C.P.I. 



A Family of 100% 68XX Support Facilities 

The Folks who FIRST Put FLEX" on 

The CoCo 
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STAR DOS PLUS + 

• Functions Same as FLEX 

• Reads • writes FLEX Disk* 

• Run FLEX Programs 

• Just type: Run 'STAR DOS" 

• Over 300 utilities & programs 
to choose from 
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TSC Editor 




NOW $35.00 


L 


y) 



PLUS 

ALL VERSIONS OF FLEX & STAR-DOS 

+ Read-Write-Dir RS Disk 
+ Run RS Basic from Both 
+ More Free UtJities 




INCLUDE 

+ External Terminal Program 
+ Test Disk Program 
+ Disk Examine & Repair Program 
+ Memoty Examine Program 
+ Many Many More!!! 



TSC Assembler 
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NOW $35 OO 

1 



CoCo Disk Drive Sgsleuis 



2 TH1NLINE DOUBLE SIDiO DOUBLE DENSITY DISK DRIVES 
SYSTEM WITN FDUEE SUCI-L* .CAIINtT, 01SI OllVE CARLE. JiH 
NEW DISK CONTROLLER JP0-CP VJTH J-OOS.RS-DOS OPERATINC 
SYSTEMS. |4*«.») 

• Spiel (y What CONTROLLER You Want JAN, or RADIO SHBCX 

TMINLINE DOUBLE S1DE0 
DOUBLE DENSITY *0 TRACKS 



MK VPCSAOi 

FOR C.0,E, P, AND COCO II 
RADIO SHACK BASIC I. 2 
EAD10 SHACK DISK BASIC 1.1 



Verhjhm Diskettes 



Sinftlf Sldad Doubl« DtDtity 
Deubl* Sided Double Deoelty 



Cooli oilers 



JtN JPO-CP WITH J-0OS 
WITH J-OOS, KS-OOS 
RADIO SHACK ] . I 

RADIO SHACK Diik CONTROLLER 1.1 



Disk Di ive Ciu!>-'> 



Ceble for One Drive 
Cable for Two Drive* 





DISK OltVE CABINET POl A 


III*. as 


SINGLE (WIVE 




DISK DRIVE CAEINET POl TWO 




TK1NLINE DRIVES 


} 14.00 


nirruj 


} 14.00 


EPSON U-BO 




EPSON HX-70 




EPSON KX-100 


•139. 95 


ACOMoaiE* rot ifboc 


$119. *» 




tiM.aj 


61*6 2E SEEIAL BOARD 


81*9 32K EXPAND TO I2BK 




EPSON MJ-M-UO KIIMNS 


413*. aj 


EPSON LX-80 ElEtONS 




TEACTOE UNITS PO« LX-BO 




CABLES 4 •THE* IHTCK/ACKS 




CALL POR PRICING 


i la.tj 




i 24. as 





I 29.95 



t 24. as 
i 24. as 



* 4».»5 

t ta.as 



B2M.9J 

•us.aj 
$»*i.*i 



JI49.95 

» s.as 



DATA-COMP 

5900 Cassandra Smith Rd 
Hixson. TN 37343 
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SHIPPING tS* 

f^:^ d ^" s .| (615)842-4600 

n(H. $2.50 'Of OtoWring 

Telex 5106006630 
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! An Ace of a System in Spades! The New 

I MUSTANG-08/A 



TN4 



Now with 4 aerial porta standard At speed Increase to 12 Mhz CPU + on board battery 
backup and Includes the PROFESSIONAL OS*9 package - including the $500.00 OS-9 

C compiler] Thia offer wont last f oi e ve rt 

Now even faster! 



NOT 128K, NOT 5 12K 



iFULL 768K No Wait RAM 



with 12 Mhz CPU 



I 



The MUSTANQOB™ system look nvety hand from al 
I other 68008 sysems we tasted, running OS-9 68K) 
I The MU5TAN&08 tvJudea OS9-68K™ andtor Peter 
| Stark* SICDOS™ . SKTJOS is a single user, single tasking 
| system that takes up where "FLEX™ left oft. SK*DOS is 
| actuary a 6BXXX FLEX type system (Not a TSC product,) 
OS-9 MM-watem |> -JlM btownmm feM i lL-i iuti- 

iiAfelTfi a nJ/A wna an Msk lO Fact 



C Campfe times: 0&9 68K. Hard OJak - ^ 

MU5TANG0J 8 Wa CPU 0n*1-32eK 



Other popular 6B00B syiam 
MUSTANM20 



tmh OSmc 
rrin - 21 mc 
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System Includes OS-9 68K or 


SKDOS - Your Choice 


Specifications, 




CPU MC6800B 


12 Mhz 


RAM 7GaX 


25BK Chps 


NoWte a*« 




POmB 4-RS232 


MCSSSBI OUART 


2 - 6 bit ParaW 


MC&1 PIA 


aOCK MK48TQ2 


Real Tm Oorii Bet BU 


EPROM 16K.3*orMK 


Salad abfa 


FLOPPY WD1772 


SIMOtmb 


HARD DISK Interlace Port 


WD1002 BoBrt 



25 Megabyte 
Hard Disk System 



$2,398.90 

Complete with PROFESSIONAL OS-9 

includes the $500.00 C compiler, PC 

style cabinet, heavy duty power supply, 

5" DDDS 80 track floppy. 25 MegByte 

i Hard Disk - Ready to Run i 

Unika other 68008 systems there are several significant 
dfferercBS. The MUSTANG-06 is a full 12 Megahertz system. The 
RAM uses NO wal states, this means ful bore MUSTANG type 
performance. 

Also, aHovvrg for addressable ROMPROM the RAM b the 
maximum slowed for a 68008. The 68008 can only address a 
total of 1 Megnhyles of RAM. Tha design etbws al the RAM 



V Now more serial ports - faster CPU i 
J Battery B/U - and $850.00 OS-9 Profes | 

- Slonal With C compiler included! j space (for al practical purposes) to be utilrjed. What is not 

N *- — — — _____.• avaiahte to the user is required and reserved for ihe system. 

A RAM disk of 480K can be easly configured, leaving 288K 
free tor programAyStem RAM space. The RAM DISK can be 



'$400.00 



See Mustang-02 M 

for trade-in delate 
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MUSTANG-08 



LOOK 



Soonds 



32 bit Rqpmi 
bscgcr L«g 
.18.0. ..9.0 

..9. 8. ..6.3 



fWt'/ 

regteter long I; 

for (bO; I < 899999; ++f); 



configured to any size your ap p fcaoon requres (system must 
have 128K in addition to b other requiremarie). Laavrg the 
remaitlef of the ongral 788K for program use. Sufroent 
source included (oVtvera, etc) 

n i — h«i t mr rnrrnftniiniii i i rm 
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Data-Comp Division 

A Decade of Quality Service" 




Systems World-Wide 

Computer Publishing, Inc. 5900 CassanrJa Smrih Road 
Telephone 615 842-4601 - Tetax 51 60O663D Hbcson, Tn 37343 
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* Those vrffh SWPC r+ctenrty FLEX 5' - CrJ for %*&± hfo. 



